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自 MathWorks 推出 Matlab 7.0 以 后 ,Matlab 编译 器 在 很 多 方面 都 发 生 了 很 
大 变化 。 其 中 最 大 的 变化 是 Matiab 编译 器 不 再 将 Matlab 程序 直接 编译 为 C/ 
C 十 十 代码 ,而 只 生成 Matlab 程序 接口 文件 ,Matilab 程序 则 直接 交 给 MCR(Mat- 
lab Component Runtime) 来 执行 。 新 的 Matlab 编译 器 架构 形成 了 新 的 Matlab 与 
C/C 十 十 混合 程序 设计 特点 ， 
@ Matlab 程序 在 MCR 环境 下 与 在 Matlab 环境 下 执行 的 效率 相同 ,因此 ，, 通 
过 编译 Matlab 程序 不 会 提高 Matlab 程序 的 效率 。 

@ MCR 的 启动 时 间 与 Matlab 程序 的 启动 时 间 相 同 ,在 混合 程序 设计 中 应 考 
虑 这 一 点 。 

@ 在 C/C 十 十 程序 中 无 论 采 用 哪 种 调用 方式 调用 Matlab 程序 ,最 终结 果 都 
是 由 MCR 执行 Matlab 程序 。 

@ 由 于 Matlab 编译 器 只 生成 Matlab 接口 文件 ,而 MCR 接口 一 般 会 采用 兼 
容 设 计 , 因 此 ,与 Matlab 6.5 及 以 前 版 本 的 软件 相 比 ,用 户 开 发 C/C 十 十 
混合 程序 设计 的 复杂 度 降 低 , 可 继承 性 提高 。 

@@ 由 于 采用 MCR 执行 Matlab 程序 而 不 是 将 Matlab 程序 编译 为 C/C 十 十 

程序 ,Matlab 函数 和 工具 箱 中 可 编译 的 部 分 大 大 增加 ,为 用 户 开发 混合 编 
程 提供 了 方便 。 

正 是 存在 这 些 诸多 不 同 , 原 有 的 C/C 十 十 与 Matlab 混合 程序 设计 的 具体 实 
现 方 法 需要 进行 修正 。 为 此 ,笔者 对 (精通 Matlab 与 C/C 十 十 混合 程序 设计 》 第 1 
版 中 的 内 容 进 行 了 相应 增删 或 修正 ,形成 了 本 书 的 内 容 。 

所 谓 “ 万 变 不 离 其 宗 ”, 虽 然 Matlab 编译 器 的 架构 发 生 了 很 大 的 变化 ,但 
Matlab 与 C/C 十 十 混合 程序 设计 还 是 继承 了 原 有 思路 。 读 者 在 应 用 中 可 根据 自 
已 的 需求 选择 Matlab 调用 C/C 十 十 程序 (MEX 文件 )、 将 Matiab 程序 编译 为 独 
立 可 执行 文件 `.CVC 士 十 程序 调用 Matlab 引擎 \C/C 十 十 程序 调用 Matiab 程序 编 
译 后 的 动态 链接 库 以 及 C/C 十 十 程序 调用 Matlab 程序 编译 后 的 COM 组 件 等 方 
式 进行 。 

Matlab 调用 C/C 十 十 程序 通过 将 其 编译 为 MEX 文件 来 实现 ,Matlab 提供 了 
一 组 C 语言 API 函数 供用 户 调用 。 这 组 API 函数 是 Matlab 与 用 户 C 程序 之 间 
的 桥梁 。 通 过 调用 C/C 十 十 程序 编译 的 MEX 文件 ,用 户 可 以 将 Matlab 程序 中 运 
算 效 率 不 高 的 代码 用 C/C 十 十 来 实现 ,从 而 提高 计算 效率 。 

C/C 十 十 调用 Matlab 程序 用 户 可 以 选择 调用 Matiab 程序 编译 后 的 动态 链接 
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库 或 Matlab 程序 编译 后 的 COM 组 件 , 这 两 种 调用 方法 的 执行 效率 是 相同 的 。 动 
态 链接 库 方式 实现 起 来 比较 简单 ,COM 组 件 方式 实现 起 来 较 复杂 。 除 此 之 外 ,C/ 
C 十 十 可 以 通过 Matlab 引擎 直接 执行 Matlab 程序 ,但 这 种 方式 不 能 脱离 Matlab 
环境 执行 。 

另外 , 书 中 还 介绍 了 另外 两 种 Matlab 与 C/C 十 十 混合 程序 设计 的 方法 ， 
Matcom C/C 十 十 数学 库 和 Matlab C 十 十 数学 库 。 其 中 ,Matcom 是 第 一 个 可 以 将 
Matlab * .m 文件 编译 为 C/C 十 十 代码 的 编译 器 。Matcom 可 以 直接 将 mm 文件 编 
译 为 C/C 十 十 代码 ,但 只 支持 Matlab 5.3 版 。 现 在 一 般 情 况 下 没有 必要 使 用 
Matcom 编 译 Matlab 程序 ,但 Matcom 的 C 十 十 矩 阵 库 仍 然 有 一 定 的 使 用 价值 。 
Matlab C 十 十 数学 库 是 Matlab 提供 的 一 组 封装 好 的 矩阵 运算 数学 库 , 其 使 用 方 
法 和 Matlab 环境 中 的 编写 方法 十 分 类 似 。 如 果 用 户 用 Visual C 十 十 实现 用 户 界 
面 , 而 又 希望 寻找 一 组 高 效 的 矩阵 运算 数学 库 的 话 , 那 么 Matlab C 十 十 数学 库 是 
一 个 不 错 的 选择 。 

Matlab 与 C/C 十 十 混合 程序 设计 方法 各 有 千秋 ,具体 应 用 还 要 结合 开发 者 的 
具体 情况 进行 选择 。 但 无 论 使 用 哪 种 方法 ,Matlab 的 数据 结构 与 C/C 十 十 的 数据 
结构 之 间 的 相互 访问 和 转换 都 是 混合 编程 的 关键 ,这 也 是 本 书 重 点 所 在 ,希望 读 
者 在 阅读 和 开发 过 程 中 引起 注意 。 

本 书 所 有 的 源 代 码 均 可 在 附带 的 光盘 中 找到 。 第 7 章 “Matcom 与 C/C 十 十 ” 
的 开发 和 编译 环境 为 Visual C 十 十 6.0 与 Matcom 4. 5. 1; 第 8 章 “VC 十 十 调用 
Matlab C 十 十 数学 库 ” 的 开发 和 编译 环境 为 Visual C 十 十 6. 0 与 Matlab 6. 5, 1; 其 
他 各 章 的 开发 和 编译 环境 为 Visual C 十 十 6. 0 与 Matlab 2007 。 

在 本 书 的 编写 过 程 中 有 幸 得 到 很 多 同志 的 支持 和 帮助 ,在 此 感谢 所 有 为 本 书 
的 完成 提供 过 帮助 的 同事 和 朋友 。 感 谢 网 络 上 提供 Matlab 与 C/C 十 十 混合 程序 
设计 资料 的 网 友 们 ,在 学 习 Matlab 与 C/C 十 十 混合 程序 设计 的 过 程 中 ,这 些 资料 
使 我 受益 菲 浅 。 感 谢 我 的 妻子 齐 春 溪 女 士 , 在 她 的 大 力 支持 和 协助 之 下 此 书 方 得 
以 顺利 编写 完成 。 
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第 1 章 Matlab 程序 设计 初步 


1.1 Matlab 程序 设计 特点 


Matlab 语言 是 一 种 解释 型 的 高 级 语言 , 它 包含 自己 的 数据 结构 、 程 序 流 控 制 及 文件 输入 
输出 等 功能 。Matlab 语句 可 以 在 Matlab 控制 窗口 中 直接 执行 ,也 可 以 采用 脚本 (scripb) * . m 
文件 和 函数 (function) * . m 文件 的 形式 来 实现 。 

1.1.1 Matlab Script 文件 
采用 Matlab Script 文件 ,可 以 一 次 执行 多 条 Matlab 语句 ,这 是 一 种 比较 简单 的 实现 方式 。 


由 于 Matlab 的 变量 不 需要 定义 ,所 以 ,可 以 很 方便 地 按照 程序 的 计算 流程 编写 Matlab Script 文 
件 。 如 下 面 的 testscript m 文件 就 是 一 个 采用 Script 文件 一 次 执行 多 条 Matlab 语句 的 实例 。 


史 保存 为 testscript,m 文件 





x= 一 pi:0.01:piy %pi 在 Matlab 中 是 常量 ,代表 圆周 率 
y=sin(x)# % 生 成 绘制 数据 

ynoise=y+ (rand(1,length(y)) 一 0.5) * 0.2; %% 加 均匀 咯 声 

plot(xyyr. 0 

hold on; % 重复 绘制 不 擦 除 背景 
plot(xvynoise)， 

hold off; 


上 述 Script 文件 的 执行 结果 如 图 1-1 所 示 。 


Cocamczaco 
D 态 加 夯 Am 包 户 了 








图 1- 1 testscript. m 文件 执行 结果 
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1.1.2 Matiab 表达 式 
Matlab 的 主要 运算 符 如 表 1- 1 所 列 。 


表 1-1 Miatlab 的 主要 运算 符 























算术 运算 符 关系 运算 符 还 辑 运算 符 
字 数值 阵列 元 素 加 屋 小 于 & 按 位 与 
好 数值 阵列 元 素 减 喧 到 小 于 等 于 1 按 位 或 
人 数值 阵列 元 素 乘 > 大 于 按 位 非 
4 数值 阵列 元 素 右 除 >= 大 于 等 于 or 异 或 
\ 数值 阵列 元 素 左 除 和 相等 && 逻辑 与 
冒号 运算 符 一 至 不 相等 山 逻辑 或 











四 数值 阵列 元 素 宕 

四 数值 阵列 元 素 转 置 | 
数值 阵列 转 置 (对 于 实数 
与 .' 相同 ,对 于 复数 , 转 置 


























的 同时 对 复数 求 共 生 ) 
| 数值 了 册 | 
7 “| 数值 阵列 右 除 
生 数值 阵列 左 除 
数值 阵列 乔 











Matlab 的 算术 运算 符 对 于 矩阵 运算 是 非常 方便 的 ,可 以 大 致 将 其 分 为 针对 数值 阵列 元 素 
和 针对 数值 阵列 整体 的 两 类 数学 运算 符 。 其 中 针对 数值 阵列 元 素 的 数学 运算 符 的 运算 方式 可 
以 理解 为 是 数值 阵列 的 单个 数学 元 素 逐 个 按 顺 序 进行 运算 的 运算 符 , 而 针对 数值 阵列 整体 的 
数学 运算 符 的 运算 对 象 则 是 数值 阵列 整体 (一 般 情况 下 为 甜 阵 和 向 量 )。Matlab 的 运算 符 与 
普通 高 级 语言 的 运算 符 有 一 些 不 同 之 处 ,下 面 重点 针对 冒号 (:) 运 算 符 \ 点 (. ) 运 算 符 及 左 除 


(C\) 和 右 除 (/) 运 算 符 进行 说 明 。 


“:" 运 算 符 是 Matlab 编程 时 最 常用 的 运算 符 之 一 ,其 主要 功能 是 产生 一 个 等 间距 的 数据 
向 量 。 恰 当地 使 用 冒号 运算 符 可 以 使 Matlab 程序 非常 简洁 。 冒 号 运算 符 最 常见 的 两 个 用 途 


如 下 所 述 。 
@ 产生 循环 控制 变量 
for i= 1:100 
% 循 环 程序 
end 


@@ 生成 数据 时 产生 自 变 量 


x= 一 pi:0.01:pi; %pi 在 Matlab 中 是 常量 ,代表 国 周 率 


y=sinCoy 
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“. "运算 符 和 其 他 运算 符 联合 使 用 , 则 表示 对 阵列 的 元 素 进行 操作 。 如 A. * 也 表示 A 和 
B 的 相同 位 置 元 素 进行 相 乘 ,A * B 则 表示 阵列 A 与 B 相 乘 (矩阵 相 乘 或 者 向 量 相 乘 ) 。 

“/” 和 “\” 分 别 表示 Matlab 数值 阵列 右 除 和 左 除 , 其 中 A/B 表示 线性 方程 AX=B 的 解 ， 
AN\B 表示 线性 方程 XA=B 的 解 ; 如 果 *“/” 或 “\" 与 <“. "配合 使 用 , 则 表示 数值 阵列 相同 位 置 的 
元 素 分 别 进行 右 除 或 左 除 , 其 中 A.\B 表示 B(D/A(iD,A./B 表 示 ACi)/B(i)。 

下 面 的 一 组 Matlab 语句 则 说 明了 Matlab 算术 运算 符 的 使 用 方法 。 


保存 为 testoperat.m 文件 
A=[123;456;789i] 
8=f111111111) 


% 低 阵 元 素 相 加 、 相 减 \, 相 乘 
C=A+B; 
D=A-B; 
E=A. * Bi; 


% 低 阵 元 素 左 除 和 右 除 

% 其 中 F 和 G 的 结果 相同 

% 均 为 : 

% 1.0000 0.5000 0.3333 
% 0.2500 0.2000 ”0.1667 
% 0.1429 ”0.1250 0.111 


F=A.\B; 

G=B./A; 

% 置 号 运算 符 

N= 1:100; 

% 等 运算 符 

A1=A. 2 

% 转 置 

%Z1 为 : 

% 1.0000+ 1.0000i 4.0000+ 1.0000i 7.0000+ 1.0000i 
% 2.0000+ 1.0000i 。 5.0000+ 1.0000i 8.0000+1.0000i 
% 3.0000+ 1.0000i 6.0000+ 1.0000i 。 9.0000+ 1.0000i 
%Z2 为 ， 

% 1.0000- 1.0000i 4.0000- 1.0000i 7.0000 一 1.0000i 
% 2.0000- 1.0000i 。 5.0000 一 1.0000i 。 8.0000 一 1.0000i 
% 3.0000 一 1.0000i 6.0000 一 1.0000i 。 9.0000 一 1.0000i 
Z=A+Bxis 路 构造 复数 

Z1=Z.4 


Ze=2 
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A=[111;212;1235] 
B=[111]" 


吧 计算 方程 AX=B 的 解 

%x+y+Zz=1 

%2x+y+2z=1 

%x+2y+3z=1 

X= ANB; %X= [0.5000 1.0000 一 0.5000]' 


% 计算 方 程 XA=B' 的 解 

%x+2y+z=1 

%x+y+2z=1 

%x+2y+3z=1 

X=BVA; %Xx=[100] 

Matlab 的 关系 运算 符 和 逻辑 运算 符 与 C 语言 的 使 用 方法 一 样 ,只 是 C 语言 中 表示 非 的 


“1" 运 算 符 在 Matlab 中 用 “一 ”来 代替 。 另 外 ,Matlab 的 逻辑 运算 符 可 以 直接 对 数值 阵列 进行 
操作 ,例如 ， 


A=[11001]， 
8B=[01001]， 
C=A&Bi %C=[0100 旭 
D=AleB; %D=[11001 
E= 一 A %E=[00110] 
F= xor(A,B)} %F=[10000] 


1.1.3 Matiab 函数 


除了 采用 Script 文件 编写 Matlab 程序 以 外 ,Matlab 语言 也 可 以 通过 函数 的 形式 编写 
Matlab 程序 。 通 过 Matlab 函数 编写 的 Matlab 程序 便于 维护 ,而 且 对 于 使 用 者 而 言 ,只 需要 
了 解 函数 的 输入 和 输出 即 可 ,因此 ,要 比 Script 文件 容易 使 用 得 多 。 

Matlab 函数 的 定义 方法 如 图 1-2 所 示 。 


function [xyz]=functionname(inx'iny',inz) 


人 函数 的 输入 参数 


函数 名 


函数 的 输出 参数 
定义 函数 的 关键 字 





图 1-2 Matlab 函数 的 结构 
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函数 体 的 写法 与 Script 文件 的 写法 类 似 , 使 用 函数 时 需要 注意 的 是 :第 一 ,保存 Matlab 函 
数 程序 时 必须 采用 函数 名 作为 文件 名 ,其 扩展 名 为 . m; 第 二 ,Matlab 函数 输入 的 外 部 变量 如 
果 在 函数 体内 发 生变 化 , 则 函数 结束 时 ,外 部 变量 的 值 不 会 发 生变 化 ,类 似 于 C 语言 输入 参数 
的 值 传递 。 

如 编写 下 面 的 函数 ,试图 调换 x 和 y 的 值 , 实 际 上 这 样 做 是 不 能 实现 的 。 


% 保 存 为 change.m 文 储 
function [] = change(x,y) 
t=xi 
sy 


yY=t 

测试 程序 如 下 ， 

x= 10; 

y=1 

change(x,y)， % 此 时 x= 10,y=1 

另外 ,Matlab 有 两 个 函数 nargin 和 nargout, 分 别 返 回 Matlab 函数 的 输入 和 输出 参数 的 
个 数 。 如 果 采 用 元 组 变量 varargin 和 varargout 来 蔡 代 常规 的 输入 和 输出 参数 , 则 函数 就 可 
以 接受 数目 可 变 的 输入 和 输出 参数 。 下 面 的 例子 就 是 用 来 说 明 这 两 个 函数 的 用 法 。 


中 保存 为 testnarin_out.m 文件 
function [varargout] = testnarin_out(varargin) 
% function [xy, 如 = testnarin_out(mynvk) 
disp(' 输入 参数 的 个 数 0) 
disp(nargin) ， 
disp(' 输出 参数 的 个 数 0) 
disp(nargout) 
if(nargout>nargin) 
error(' 输出 参数 的 个 数 不 能 大 于 输入 参数 的 个 数 ! \n ) 1 
end 
varargout{ 1:nargout} = varargin{ 1:nargout); 


测试 程序 如 下 : 


m=rand(1,10)tn=randn(5):z= magic(4)3 
testnarin_out(mym 3 

X= testnarin_out(mvn); 

[xy, 菩 =testnarin_out(myn): 


则 程序 运行 结果 如 下 所 示 。 
输入 参数 的 个 数 
2 


输出 参数 的 个 数 
0 
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输入 参数 的 个 数 

2 

输出 参数 的 个 数 

1 

输入 参数 的 个 数 

2 

输出 参数 的 个 数 

3 

?2?? Error using 一 一 二 testnarin_out 


输出 参数 的 个 数 不 能 大 于 输入 参数 的 个 数 ! \n 


1.1.4 Matlab 的 向 量 运算 


Matlab 程序 设计 语言 是 解释 型 语言 ,其 循环 语句 的 效率 非常 低 。 但 是 ,由 于 在 算法 上 作 
了 特殊 的 优化 ,Matlab 程序 设计 语言 对 于 向 量 和 矩阵 运算 的 效率 却 很 高 。 因 而 在 进行 Matlab 
程序 设计 时 ,一 个 很 重要 的 原则 就 是 尽量 少 地 使 用 循环 语句 。 可 以 做 一 个 测试 ,同样 是 乘法 ， 
对 于 采用 for 循环 和 阵列 元 素 相 乘 运算 符 “. * ”, 两 者 的 执行 时 间 可 以 相差 数 十 倍 。 


中 保存 为 testfor.m 文件 
% 清 空 workspace 的 变量 
clear all; 
clc; 
%Matlab 循环 语句 与 向 量 运算 的 测试 语句 
a= 1;1000000， 
b= 1000000: 一 1:1; 
sum_axb=0 1 
tics 吧 计时 开始 
for i= 1:1000000 
sum_axb=sum_axb+ ai) * b(iD4 


end 

time1= toct % 计 时 结束 并 输出 采用 循环 语句 进行 运算 的 时 间 
sumLaxb=0; 

ticy 双 计时 开始 

sum_axb= sum(a. * b)#* 

time2 = toci % 计 时 结束 并 输出 采用 向 量 运算 消耗 的 时 间 


result1 = strcat(' 采用 循环 语句 运 算 消耗 的 时 间 为 :num2strCtime1)， 秒 ) 
result2 = strcat(! 采用 向 量 运算 消耗 的 时 间 为 : num2str(time2)， 秒 ); 


disp(resultT) 
disp(result2) 3 
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测试 结果 为 : 


采用 循环 语句 运算 消耗 的 时 间 为 :0. 718 秒 
采用 向 量 运算 消耗 的 时 间 为 : ”0.031 秒 


将 Matlab 的 循环 语句 运算 转换 为 向 量 运算 需要 在 Matlab 程序 编写 过 程 中 加 入 一 些 技 


巧 ,其 中 最 常见 的 形式 如 下 所 述 。 
@ 用 向 量化 运算 代替 for 和 while 循环 运算 。 如 : 
fori= 一 pi0.1:pi 
YD =sin(D， 
end 
可 以 用 下 面 的 向 量 运算 来 代替 。 


x= 一 pi:0.1:pi; 
y=sin(x)# 


另外 ,如 果 上 例 中 还 有 两 个 向 量 之 间 的 运算 ,可 以 用 类 似 ” 
数 来 代替 。 即 


for i= 1:1000000 
sum_axb= sum_axb+ ai) * b(D# 
end; 
可 以 被 


sum_axb= sum(a. * bf 
来 代替 。 
@@ 采用 一 些 经 过 优化 的 Matiab 向 量 运算 函数 。 
经 常用 于 向 量 运算 的 Matlab 函数 如 表 1- 2 所 列 。 
表 1-2 Matiab 常用 向 量 函 数 


. * ”的 数值 阵列 元 素 的 运算 函 





























函数 各 函数 功能 
属 扣 判 断 数 值 阵列 是 否 全 部 非 罕 

| 。 淹 断 数值 阵列 是 否 有 非 科 元素 

本 变换 数值 库 列 的 各 维 元 素数 上 

了 nd 返 四 非 和 元 素 在 阵列 中 的 位 置 及 其 数值 

区 将 数组 按 升 译 排序 

二 求 数组 的 和 
[ repmar 扩展 阵列 | 








除了 repmat 函数 , 表 1 - 2 中 的 其 他 函数 都 比较 容易 理解 。 下 面 就 以 repmat 函数 为 例 ， 
说 明 如 何 采用 Matlab 的 向 量 函 数 蔡 换 循环 语句 的 技巧 。repmat 函数 用 于 扩展 Matlab 阵列 ， 


对 于 矩阵 














它 的 扩展 矩阵 B 为 








B = repmat(A,5,3) 一 











和 4 3 4 
1 1 和 宇和 
有 | 
1 2 1 1 2 
34343 4 


下 段 程序 运用 repmat 函数 绘制 如 图 1 - 3 所 示 的 三 维 曲面 图 


了 Pile Bait 下 er Insert Tools indow telp 


口 沪 目 鲜 AAA 骨 另 汪 
sin(0+sing) 





图 1-3 sin(x) 十 sin(y) 的 三 维 曲面 图 


哆 保存 为 testrepmat.m 文件 

% 运 用 repmat 函数 

% 绘 制 sin(x) + sin(y) 的 三 维 曲 面 图 
% 首 先 





空 workspace 的 变量 
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clear all; 

clci 

x= 一 pi:0.01:pi 
y= 一 pi:0.01:piy 
y= 
xl1= repmat(xvlength(x) ,1); 
yY1= repmat(y,1,length(y)); 
z=sin(x1) +sin(y1D)， 
mesh(x1,y1,z) 

xlabel('xD， 

ylabel('y)， 

zlabel('zD 1 

titleC'sin(x) + sin(y)0 


其 实 ,采用 向 量 运算 代替 循环 语句 的 本 质 是 用 牺牲 内 存 空 间 的 做 法 来 换取 计算 效率 的 提 
高 。 这 是 因为 所 有 Matlab 的 内 置 函 数 都 针对 向 量 和 和 抢 阵 运算 进行 了 优化 ,因而 对 于 Matlab 
的 内 置 函数 来 说 ,只 有 当 输 入 的 数据 是 向 量 或 者 矩阵 的 形式 时 ,其 计算 效率 才 是 最 高 的 。 为 了 
提高 计算 效率 ,就 必须 满足 Matlab 内 置 函 数 的 这 种 要 求 , 即 在 调用 Matlab 函数 以 前 通过 适当 
技巧 构造 好 其 所 需要 的 向 量 或 者 矩阵 ,这 便 是 Matlab 程序 设计 向 量化 的 本 质 所 在 。 


1.1.5 ”Matlab 的 程序 控制 


Matlab 用 于 程序 控制 的 关键 字 如 表 1 - 3 所 列 。 
表 1-3 Matlab 常用 的 程序 控制 关键 字 








字 的 功能 描述 





























证 与 else 和 elseif 关键 字 联合 使 用 ,根据 设 定 的 逻辑 条 件 执行 不 同 的 代码 

switch 与 else 和 otherwise 关键 字 联合 使 用 ,根据 设 定 的 变量 值 的 不 同 执行 不 同 的 代码 
while 根据 设 定 的 逻辑 条 件 执行 循环 次 数 不 定 的 循环 模块 

for 执行 循环 次 数 一 定 的 循环 模块 

continue 适用 于 for 或 者 while 循环 中 ,中 止 当前 循环 体 语句 的 执行 ,直接 进行 下 一 次 循环 
break 退出 当前 层 的 循环 体 

return 直接 返回 到 当前 函数 的 调用 函数 中 











下 面 分 别 举例 说 明 Matlab 程序 控制 关键 字 的 使 用 方式 。 

1. 放 和 switch 语句 

计 和 switch 语句 是 Matlab 程序 设计 中 选择 程序 结构 的 两 个 关键 字 。 其 中 让 语句 根据 设 
定 的 逻辑 条 件 执行 不 同 的 代码 ,而 switch 语句 则 根据 设 定 的 变量 值 的 不 同 执行 不 同 的 代码 。 

证 可 以 单独 使 用 ,也 可 以 与 else 和 elseif 联合 使 用 ,其 使 用 方式 有 下 面 3 种 。 

(1) 单独 使 用 

计 逻辑 表达 式 

语句 
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例如 : 


ifA>B 

disp(A 大 于 B)1 
end 
(2) 和 else 联合 使 用 


让 逻辑 表达 式 
语句 1 
else 
语句 2 


end 


例如 ; 


诉 A>B 

disp('A 大 于 BD)5 
else 

disp(B 大 于 等 于 AD) 
end 


(3) 和 elseif 联合 使 用 
it 轩 辑 表达 式 
语句 1 
elseif 
语句 2 
else 
语句 3 
end 
例如 ， 
半 A>B 
dispCA 大 于 BD) 1 
else 半 A==B 
disp(IA 等 于 B)5 
else 
disp(C'B 大 于 AD) 
end 
而 switch 语句 的 使 用 方式 如 下 。 


switch 表达 式 
case 数值 1 
语句 1 儿 当 表达 式 的 值 为 数值 1 时 执行 语句 1 
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case 数值 2 
语句 2 儿 当 表达 式 的 值 为 数值 2 时 执行 语句 2 
otherwise 
语句 n 十 1 儿 当 表达 式 的 值 与 数值 1 一 数值 n 皆 不 相等 时 执行 此 语句 
end 


与 C 语 言 类 似 ,switch 语句 与 计 语 句 都 是 程序 设计 中 选择 程序 结构 的 关键 词 ,但 是 两 者 
的 应 用 场合 略 有 不 同 。 下 面 ,是 一 个 判断 输入 变量 符号 的 小 例子 ,并 分 别 用 让 语句 和 switch 
语句 来 实现 ,通过 此 例 , 读 者 可 以 大 致 了 解 直 和 switch 语句 在 使 用 上 的 不 同 特点 。 


% 保存 为 testif.m 文件 
% 并 语句 的 使 用 方法 测试 
function [] = showilnputSign_if(input) 
% 根据 输入 数据 的 正 负 不 同 ,给 出 不 同 的 输出 
nlen= length(input)} 
if nlen>1 
disp(' 输入 的 数据 不 是 1X 1 的 数值 阵列 ! '); 
else 
if input 一 =0 % 注 意 “一 =” 和 表示 “不 等 于 ” 
ifinput > 0 
disp(' 输入 数据 大 于 0) 
else 
disp(' 输入 数据 小 于 0 
end 
else 
disp(! 输入 数据 等 于 0) 
end 
end 


%switch 语句 的 使 用 方法 测试 
function 口 = showlnputSign_switcdh(input) 
% 根 据 输入 数据 的 正 负 不 同 , 给 出 不 同 的 输出 
nlen= length(input)， 
if nlen>1 
disp(! 输入 的 数据 不 是 1X 1 的 数值 阵列 ! 
else 
signinput = sign(input)， 
switch signinput 
case 0 
disp(! 输入 数据 等 于 00); 
case 1 
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disp(' 输入 数据 大 于 0); 
case 一 1 

disp(' 输入 数据 小 于 0)， 
otherwise 


end 
end 


2. for 和 while 语句 

for 和 while 语句 是 Matlab 程序 设计 中 的 两 个 循环 关键 词 , 其 中 for 循环 用 于 执行 指定 次 
数 的 Matlab 循环 语句 , while 循环 用 于 执行 不 定 次 数 的 Matlab 循环 语句 。for 循环 语句 和 
while 循环 语句 的 使 用 方法 都 比较 简单 ,如 下 所 示 。 

{1) for 循环 语句 使 用 方式 

for 索引 = 开始 : 步 长 : 结束 

语 名 

end 

例如 ， 


for i=3:2:9 
x(D=2wx(i 一 2)4 
end 


(2) while 循环 语句 使 用 方式 
while 逻辑 表达 式 
语句 
end 
例如 ， 


sum=0; 

while x(D 二 0 
sum=sum+x(iD) 

end 


在 for 和 while 循环 结构 中 需要 使 用 break 和 continue 这 两 个 关键 字 , 其 中 break 关键 字 


表示 退出 当前 循环 ,而 continue 表示 结束 当前 循环 语句 执行 ,进入 下 一 次 循环 。 这 与 C 语言 
的 使 用 方法 类 似 。 


1.2 ”Matlab 常用 的 数据 类 型 


Matlab 所 有 的 数据 类 型 都 可 以 用 一 种 数据 类 型 即 Matlab 阵列 (Array) 来 表达 。 常 用 的 
Matlab 阵列 类 型 有 数值 类 型 ( 整 型 . 单 精度 型 和 双 精 度 型 ) (numeric array)、 元 组 类 型 cell 
array) 、 结 构 体 类 型 (structure array) .字符 类 型 (char array) 和 轴 辑 型 (logical array)。 另 外 还 
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有 其 他 一 些 类 型 的 Matlab 阵列 ,如 图 1 -4 所 示 。 


阵列 


| | 本 昌 琶 到 | | 


[sm 开 |] | > |][ sx | | 元 和 类 型 ] 结构 作 类 到 | JAwA 关 | | 函数 和 本 









































整 型 | 。 | _ 音 精 度 型 | 。 | 双生 度 型 | 





图 1-4 Matlab 阵列 数据 类 型 


广义 上 说 , Matlab 只 有 一 种 数据 类 型 , 即 阵列 ,只 不 过 Matlab 阵列 有 不 同 的 类 型 。 
Matlab 阵列 类 似 于 数组 的 概念 ,一 个 Matlab 阵列 可 以 看 做 是 某 一 Matlab 数据 类 型 (狭义 的 ) 
的 数组 。 举 例 来 说 ,一 个 mxn 的 结构 体 阵 列 类 似 于 一 个 mxn 的 结构 体 数组 ,一 个 mxn 的 
双 精 度 型 阵列 类 似 于 一 个 mxn 的 双 精 度 型 数据 的 数组 。 如 果 m= 1,n= 一 1, 则 此 时 的 1X1 阵 
列 相当 于 C 语言 的 变量 。 对 于 多 维 数组 ,与 C 语言 的 数组 元 素 在 内 存 中 按 行 排列 的 排列 顺序 
不 同 , 所 有 Matlab 阵列 在 内 存 中 都 是 按 列 排列 的 。 

各 种 类 型 的 阵列 在 Matlab 中 使 用 之 前 是 不 用 声明 的 ,而 且 各 种 类 型 阵列 的 使 用 方式 十 分 
相似 。 但 是 如 果 进 行 Matlab 与 C/C 二 十 混合 编程 , Matlab 数据 类 型 和 C/C 十 十 数据 类 型 的 交 
互 是 需要 解决 的 关键 问题 之 一 。 因 而 ,熟悉 和 人 掌握 Matlab 数据 类 型 的 特点 对 于 Matlab 与 
C/C++ 混合 编程 的 实现 是 非常 重要 的 。 下 面 ,就 Matlab 几 种 主要 阵列 类 型 的 使 用 进行 
说 明 。 

1.2.1 数值 阵列 


Matlab 的 主要 核心 部 分 就 是 高 效率 的 数值 计算 ,因而 数值 类 型 的 Matlab 阵列 也 是 
Matlab 开发 环境 中 最 常用 的 阵列 类 型 。Matlab 的 数据 类 型 大 致 有 整 型 . 单 精度 浮 点 型 和 双 精 
度 浮 点 型 3 类 ,其 中 整 型 又 有 8 位 16 位 、32 位 .64 位 及 无 符号 和 有 符号 之 分 。 由 于 Matlab 
所 有 的 运算 都 是 采用 双 精 度 浮 点 型 ,因而 整 型 阵列 如 果 要 参加 运算 ,必须 先 转换 为 双 精度 型 。 
同样 由 于 Matlab 所 有 的 运算 都 是 采用 双 精度 浮 点 型 ,因而 ,Matlab 数值 阵列 中 最 常用 和 最 方 
便 的 是 双 精 度 浮 点 型 阵列 。Matlab 数值 阵列 的 初始 值 可 以 直接 设 定 , 也 可 以 通过 其 他 函数 生 
成 。 例 如 : 

A=[123;456789i]; % 直接 设 定 双 精 度数 值 阵列 A 的 值 

B=rand(3,3); % 通 过 函数 生成 双 精度 阵列 B 的 什 
其 中 ,[”、“]” 和 *“;? 是 Matlab 比较 常用 的 符号 。“[” 和 ”“]" 表 示 Matlab 阵列 构造 的 开始 和 结 
东 ;“i” 在 “[” 和 势 "之 间 表 示 Matlab 阵列 一 行 的 结束 ,如 果 “i" 放 在 一 条 语句 的 末尾 , 则 表示 本 
条 语句 的 输出 不 在 Matlab Command 窗口 中 显示 ,否则 要 在 Matlab 的 Command 窗口 中 显 
示 。 比 较 下 面 两 条 语句 在 Matlab Command 窗口 中 执行 结果 的 不 同 之 处 
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六 C= magic(3) 

C= 
8 T 6 
尝 肖 学 
4 9 2 

字 C=magic(3)， 


六 


实际 上 ,Matlab 数值 阵列 与 C/C+ 十 中 数组 的 概念 类 似 , 只 不 过 在 存储 方式 上 ,Matlab 与 
FORTRAN 相同 ,多 维 数组 采用 按 列 存储 的 方式 ,而 C/C+ 十 则 采用 按 行 存储 ,在 进行 Matlab 
与 C/C+ 十 混合 编程 时 ,这 是 一 个 重要 的 细节 。 

下 面 ,给 出 一 个 利用 Matlab 读 取 灰 度 位 图 的 数据 ,并 进行 二 值 化 的 例子 。 通 过 这 个 实例 
将 会 邵 悉 Matlab 数值 阵列 的 使 用 。 


%% 保 存 为 processgrayimage. m 
function [] = processgrayimage() 
% function [] = processgrayimage() 
% 说 明 : 
% Matlab 读 取 的 位 图 图 像 数据 是 8 位 无 符号 整 型 
% Matlab 显示 和 存储 图 像 时 ,也 需要 是 8 位 无 符号 整 型 
% 或 者 将 所 有 的 数据 归 一 到 [0 1] 之 问 
% 因而 采用 double 和 uint8 进行 整 型 和 有 双 精 度 型 之 问 的 转换 就 比较 方便 
[name,path] = uigetfileC{' * .bmp',' 请 选择 一 个 位 图 文件 (* .bmp)'}， 请 打开 一 个 位 图 文件 ); 
file= strcat(pathyname); 
[lmap] = imread(file)， 
if size(l,3)==3 
1= r 卫 2gray(D， 
end 
% 将 图 像 数据 转换 为 double 型 数据 以 方便 处 理 
1= double(D， 
1=1- 100; 
signi1= signCID)， 
coefl1 = (signl1+ abs(signl1))/2 
% 大 于 125 的 图 像 部 分 
11=1. * coefl1y 
% 小 于 125 的 图 像 部 分 
D=1w(1 一 coeff)， 
11= (IIMmax(max(11))) * 255 
已 = (I2/max(max(I2))) * 255 
% 将 数据 转换 为 unsigned int8 型 数据 ,以 方便 进行 显示 
IT1= uint8(11D)， 
= uint8(I2)， 
figures 
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hl= subplot(1,2,1); 
subimage(11); 
h2= subplot(1,2,2); 
subimage(12); 


truesizer 
程序 中 要 求 打开 一 个 位 图 文件 的 对 话 框 如 图 1 - 5 所 示 , 程 序 执行 的 结果 如 图 1-6 所 示 。 


请 打开 一 个 位 图 文件 


查找 范围 加 : | DO issgs 了 | 生 白 余力 - 





文件 名 加 : [est by 
文件 类 型 () ， [请 选择 一 个 位 国文 件 e_ bep) 





图 1-5 选择 要 处 理 的 文件 


oaert josls hadow lo 
口 党 中 辐 AAA 月 户 D 





图 1-6 程序 执行 的 结果 


1.2.2 字符 阵列 


和 C/VC+ 十 不 同 ,Matlab 的 字符 采用 UNICODE 标准 ,用 双 字 节 表 示 。Matlab 字符 阵列 
可 转换 为 相应 的 ASCII 码 阵列 ,普通 数值 阵列 也 可 以 转换 为 字符 型 阵列 。Matlab 提供 了 常用 
的 字符 串 操作 函数 ,下 面 通 过 实例 可 以 熟悉 Matlab 的 字符 串 操作 。 





吧 保 存 为 teststring.m 文件 


function [] = teststring() 
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%Matlab 字符 操作 函数 

%mat2str 函数 生成 eval 可 以 执行 的 字符 闽 
data= rand(3,3) 

sdata= mat2str(data); 

eval(sdata) 


% 折 硬 币 的 游戏 ,如 果 辣 是 “1" 则 为 正面 ,否则 为 反面 
% 字符 串 比 较 
% 字符 和 数字 之 癌 的 转换 
str= 9 
= num2str(round(rand))， 
if strcmp(strvis) 
disp(' 醒 币 的 正面 0) 
else 
disp(' 硬币 的 反面 )5 
end 


% 输 出 26 个 字母 的 ASCII 码 值 

sttLetter = ,ABCDEFCHIUKLMINOPQRSTUVWXYZ' 
valLetter = double(strLetter) ; 

disp(CvalLetter) 


程序 运行 结果 如 下 所 示 。 
ans= 
0.1730 0.2523 0.1365 
0.9797 0.8757 0.0118， 
0.2714 0.7373 0.8939 
硬币 的 反面 
Columns 1 through 22 
65 66 6 66 69 70 ?1 72 73 74 75 76 
77 78 79 8 上。 上 上 8 8 84 85 86 
Columns 23 through 26 
87 88 89 90 


1.2.3 元 组 阵列 


Matlab 元 组 是 Matlab 特有 的 数据 结构 , 它 是 一 种 特殊 的 阵列 。Matlab 元 组 的 元 素 可 以 
是 任意 一 种 Matlab 类 型 的 阵列 。 如 图 1 - 7 所 示 是 一 个 2X3 的 元 组 阵列 ,包括 结构 体 阵列 、 
数值 型 阵列 、 字 符 型 阵列 及 元 组 阵列 ,它们 都 可 以 作为 元 组 阵列 的 一 个 元 素 。 

元 组 阵列 的 索引 方式 与 数值 型 阵列 、 结 构 体 阵列 及 字符 型 阵列 不 同 , 可 以 采用 “人 (和 "“) 及 
“(” 和 *“)” 两 种 索引 方式 。 这 两 种 方式 的 不 同 之 处 是 通过 “{” 和 "“j}" 得 到 的 是 相应 的 元 组 阵列 元 
素 , 而 通过 “(” 和 *“)” 得 到 的 却 是 一 个 包含 相应 元 组 阵列 元 素 的 1X1 元 组 阵列 。 下 面 的 实例 给 
出 了 图 1 - 7 中 所 示 元 组 阵列 的 创建 过 程 。 
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eeli(l,D) cell(l2) 


北京 科技 大 学 ' 


01063320501" 


mw 


ET 
aow 





cell0l.3) 
2+3i 5+6i 
3+3i 0.1+0.558i 


] 





cell(2.1) | ao2y 





"Hello Worldr 











celM2.3) 








图 1-7 元 组 结构 示意 图 


% 保 存 为 testcell.m 文件 

function [] = testcell() 

%function [] = testcell() 

tcell = cell(2,3)# 

tcell1,1)=[123!456789)]; 

， 表示 续 行 特 号 

tcell1,2} = structCname'， 李 月 
'college'， 北京 科技 大 学 
'phone',01063320501'，. 
Ispecialties',{' 平面 设计 '， 网 站 制作 小) 

tcell(1,3} =[2+3wi5+6*it3+3wi0.1+0.558*i]; 

tempcell= cell(2,2)， 

tempcellf 1,1) = 'string'; 

tempcell(1,21= [2 4;6 85] 

tempcellt2,1) = [7 8 9]， 

tempcellf2,2} = 32 十 下 

tcell{2,1} = tempcell; 

tcelt2,2) = Hello Worldl ， 














17 
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tcell2,3}=[986:54312175] 
% 采 用 “{” 和 *“)" 索 引得 到 相应 元 组 阵列 元 素 
fori=1:2 
forj=1:3 
disp(tcell(i, 站 7 
end 
end 
% 通 过 “(” 和 “)” 索 引得 到 1X 1 的 相应 元 组 阵列 
fori=1:2 
forj=1:3 
disp(tcell(i,j)) 
end 
end 


程序 运行 结果 如 下 所 示 。 


1 2 
人 5 6 
7 8 9 
1 x 2 struct array with fields， 
nane 
college 
phone 
specialties 
2.0000+3.00001 5.0000+6.0000i 
3.0000+ 3.00001 。 0.1000+ 0.5580i 
String! [2x2 double] 
[lx3 double] [32.0000+ 1.0000 订 
Hello Worldl 
9 8 6 
5 4 3 
2 1 7 
[3x 3 double] 
[1x 2 struct] 
[2x 2 double] 
12x2 cell} 
ello World! 
[3x3 double] 


1.2.4 结构 体 阵列 


Matlab 结构 体 与 C/C 十 十 语言 结构 体 类 似 , 结 构 体 由 不 同 的 域 (field) 组 成 ,其 中 每 个 域 由 
域名 和 域 值 组 成 。Matiab 结构 体 阵列 是 Matlab 结构 类 型 的 数组 ,Matlab 结构 体 阵 列 的 结构 
示意 图 如 图 1-8 所 示 。 
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D34567;890] 





图 1-8 结构 体 示意 图 
下 面 , 通 过 一 个 实例 来 说 明 结构 体 的 构成 和 基本 操作 方法 。 


% 保存 为 teststruct, m 

function [] = teststruct() 

% 构 造 个 人 通讯 隶 结构 体 

% 个 人 情况 : 

% 姓 名 name 

% 地 址 addr 

% 联系 电话 phone 

%% 爱 好 hobby 

info(1) .name=' 李 芳 ， 

info(1).addr=' 南京 市 南京 大 学 数学 系 3 并 335' 
info(1) . phone= '025525288881; 

info(1) .hobby= 们 旅游， 音乐 '， 节 法 ) 
info(2) .name= ' 欧 阳 ' 

info(2).addr= ' 哈尔滨 市 哈尔滨 工业 大 学 计算 机 系 99 一 3351 
info(2). phone= '045182589666'; 
info(2).hobby= {" 篮球 '， 游泳 "'， 游戏 ') 
disp(info(1))， 

disp(infoC2))， 

% 删除 域 

info= rmfield(info, hobby); 

disp(infoC1D)); 

disp(info(2)); 


程序 运行 结果 如 下 所 示 。 
info= 
name: ' 李 芳 
addr: ' 南京 市 南京 大 学 数学 系 3 并 335 
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phone: '02552528888! 
info= 


1x2 struct array with fields: 


phone 

hobby 

name: ' 李 芳 ， 

addr:，' 南京 市 南京 大 学 数学 系 3 提 3351 

phone: '02552528888! 

hobby: {" 旅游 "音乐 " "书法 ) 

manme: 欧阳 

addr:， ! 哈尔滨 市 哈尔滨 工业 大 学 计算 机 系 99 一 335 
phone: '045182589666! 

hobby: {' 篮球 ' 游 泳 ， ' 游戏 

name; ' 李 芳 ， 

addr， ! 南京 市 南京 大 学 数学 系 3 间 3351 

phone: '025525288881 

mane: ! 欧阳 

addr: ! 哈尔滨 市 哈尔滨 工业 大 学 计算 机 系 99 - 335 
Phone '0451825896661 





第 2 章 ，Matlab 编译 器 


2.1 Matlab 编译 器 技术 概述 


Matlab 编译 器 技术 的 基本 架构 如 图 2 - 1 所 示 。Matiab 编译 器 的 运行 机 制 可 作 如 下 
描述 ， 
@ Matlab 程序 通过 Matlab 编译 器 编译 为 可 执行 文件 ,动态 链接 库 或 者 COM 组 件 。 
@ 如 果 编 译 为 可 执行 程序 ,那么 当 执行 时 会 自动 调用 MCR ,或 者 说 是 将 编译 后 的 Matlab 
代码 传递 给 MCR 来 执行 。 
@ 如 果 编 译 为 动态 链接 库 或 者 COM 组 件 ,那么 当 其 被 主 程序 调用 时 会 自动 调用 MCR， 
或 者 说 将 编译 后 的 Matlab 代码 传递 给 MCR 来 执行 。 





[王权 | 动态 链接 库 [到 mm 


图 2-1 Matlab 编译 器 技术 基本 架构 


将 Matlab 7.0 以 后 的 编译 器 与 Matlab 6. 5 及 其 以 前 的 编译 器 对 比 ,可 以 发 现 设计 思想 上 
明显 的 不 同 之 处 。Matlab 6. 5 及 其 以 前 的 编译 器 侧重 的 是 如 何 将 Matlab 程序 编译 为 C/ 
C 十 十 程序 ,而 Matlab 7. 0 以 后 的 编译 器 由 于 采用 了 MCR 技术 ,其 侧重 只 是 将 Matlab 程序 
编译 为 MCR 可 执行 的 程序 (实际 上 只 是 生成 接口 文件 ,这 在 本 书后 面 章节 会 有 详细 介绍 ) 。 

MCR(Matlab Component Runtime) 是 Matlab 提供 的 一 组 动态 链接 库 , 通 过 MCR 可 以 
执行 Matlab 程序 。 可 以 把 MCR 想象 成 一 个 裁减 版 的 Matlab, 它 支持 Matlab 语言 的 所 有 特 
征 (包括 面向 对 象 编程 等 ) 。 除 了 MCR 以 外 ,Matlab 7. 0 以 后 的 编译 器 还 采用 了 CTF(Com- 
ponent Technology File) 技 术 ,即将 最 终 需 要 发 布 的 所 有 程序 (包括 代码 、 数 据 以 及 其 他 文件 
打包 为 一 个 CTF 文件 。 为 了 保证 代码 的 安全 性 ,CTF 还 采用 了 AES(Advanced Encryption 
Standard) 密 码 技术 进行 加 密 。 
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2.2 Matiab 编译 器 的 功能 


早期 的 Matlab 编译 器 (Matlab 6. 5 及 其 以 前 ) 的 主要 功能 有 下 面 几 个 : 

@ C/C 二 十 和 Matiab 程序 互相 调用 ,增强 开发 效率 。 

@ 加 密 代码 ,保护 软件 开发 者 的 知识 产权 。 

@ 加 快 Matlab 程序 的 执行 速度 。 

Matlab 7. 0 以 后 ,由 于 采用 MCR 技术 ,程序 通过 Matlab 和 通过 MCR 的 执行 速度 是 一 致 
的 ,因而 通过 Matlab 编译 器 编译 Matlab 程序 以 后 并 不 会 使 其 执行 速度 加 快 (C 编写 的 MEX 
文件 除外 ) 。 

在 这 里 ,笔者 想 回顾 一 下 Matlab 程序 编译 所 经 历 的 大 致 历程 。 通 过 分 析 该 历程 可 以 更 加 
明了 为 什么 需要 Matlab 编译 器 ,在 什么 情况 下 选择 Matlab 编译 器 ,应 当 如 何 最 大 限度 地 利用 
Matlab 编译 器 ? 

Matlab 出 现 以 后 ,以 其 特有 的 简单 便利 .强大 功能 很 
快 拥有 了 相当 多 的 使 用 者 。 但 是 Matlab 也 存在 一 些 问 
题 ,比如 循环 执行 速度 慢 , 开 发 和 发 布 应 用 软件 不 方便 
等 。 这 时 候 , 人 们 自然 就 会 想到 是 不 是 可 以 把 Matlab 程 
序 通过 编译 器 编译 为 C/C 十 十 语言 以 方便 其 他 程序 调 
用 。 如 图 2-2 所 示 , 这 时 候 Matlab 编译 器 需要 解决 的 问 
题 主 要 有 两 个 : 图 2-2 Matlab 编译 器 的 基本 功能 

Q@ Matlab 核心 库 调 用 的 接口 函数 。 

@ 将 用 户 开发 的 程序 (包括 后 来 开发 的 各 种 工具 箱 ) 编 译 为 C/C 十 十 程序 。 

对 于 第 一 个 问题 ,查看 一 下 Matlab 的 发 展 历史 ,最 初 Matlab 的 核心 矩阵 算法 库 是 用 
Fortran 编写 的 ,后 来 使 用 C 语言 重 写 。 既 然 是 用 C 语言 重新 编写 的 ,因而 在 C/C 十 十 程序 中 
对 Matlab 核心 库 调用 的 问题 应 该 很 容易 解决 。 对 于 第 二 个 问题 ,虽然 Matlab 程序 从 语法 上 
来 说 非常 灵活 ,程序 的 规范 性 较 C/C 十 十 程序 差 很 多 ,但 是 Matlab 程序 的 主要 元 素 实际 上 非 
常 少 ,因而 编译 为 C/C 十 十 程序 从 技术 上 说 也 是 完全 可 以 解决 的 。 事 实 的 发 展 也 是 如 此 ,第 三 
方 软件 Matcom 的 出 现 证 实 了 这 一 点 。Matcom 可 以 将 Matlab 程序 完全 编译 为 C/C 十 十 文 
件 (而 不 是 像 现在 这 样 只 是 接口 文件 ) ,并 且 提供 了 一 套 完 整 的 矩阵 运算 库 。 后 来 , Mathworks 
将 Matcom 收购 ,以 此 为 基础 在 Matlab 5. 3 中 推出 了 最 早 的 Matlab 编译 器 。 从 Matlab 5. 3 
到 Matlab 6.5, 尽 管 Matlab 编译 器 基本 延续 了 Matcom 的 设计 思想 ,但 在 很 多 方面 不 断 变化 ， 
甚至 相互 之 间 都 存在 很 大 的 兼容 性 问题 。 有 一 段 时 间 , 令 人 费解 的 是 , Mathworks 开发 的 
Matlab 编译 器 总 是 变 来 变 去 ,而 且 公 开 的 文档 少 得 可 怜 , 很 多 技术 细节 都 是 通过 非 官方 渠道 
获得 的 。 现 在 想 想 , 主 要 的 原因 有 可 能 还 是 Mathworks 出 于 知识 产权 保护 的 考虑 。 设 想 一 
下 ,如 果 按 照 Matcom 的 设计 思想 ,所 有 的 Matlab 核心 库 通过 动态 链接 库 发 布 ,而 且 所 有 的 
Matlab 都 可 以 编译 为 C/C 十 十 程序 , 那 Mathworks 岂 不 是 把 自己 所 有 的 核心 都 拱手 公布 了 
吗 ? 说 得 夸张 点 ,就 是 人 们 完全 可 以 再 自己 开发 一 个 拥有 与 Matlab 功能 一 样 强大 的 软件 。 
Matlab 7. 0 以 后 ,Mathworks 通过 采用 MCR 就 很 好 地 回避 了 这 个 问题 ,而 且 能 够 提供 一 种 兼 
容 人 性 较 强 的 Matlab 编译 和 混 编 的 方法 。 当 然 ,Mathworks 或 者 工具 箱 开发 者 对 知识 产权 还 
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是 有 些 顾 处 ,所 以 并 不 是 所 有 的 工具 箱 都 能 通过 Matiab 编译 器 编译 。 


2.3 使 用 Matlab 编译 器 的 准备 工作 
“ 工 欲 善 其 事 , 必 先 利 其 器 ", 使 用 Matlab 编译 器 之 前 需要 做 一 些 准备 工作 ,其 中 包括 ， 
@ 安装 Matlab 和 C/C 十 十 编译 器 。Matlab 自 带 一 个 lcc 编译 器 (只 能 编译 C 文件 ) ,本 
书 一 律 采用 Visual C 十 十 6.0。 
@ 配置 Matlab 编译 器 。 


在 命令 行 运行 mbuild -setup 命令 (注意 mbuild 和 -setup 之 间 应 有 一 个 空格 ) ,然后 出 现 
如 下 信息 ,根据 自己 的 需求 选择 相应 的 选项 即 可 。 


六 mbuild -setup 
Please choose your compiler for building standalone Matlab applications: 


Would you like mbuild to locate installed compilers [y]/n? y 

Select a compiler: 

{U ktcc- win32 C 2.4.1 in D:\Matlab 一 T\sysNicc 

[2] Microsoft Visual C++ 6.0 in Di\Program Files\Microsoft Visual Studio 
[o] None 

Compiler: 2 


Please verify your choices: 


Compiler: Microsoft Visual C++ 6.0 
Location: Di\Program Fiies\Microsoft Visual Studio 


Are these correct?《〈[J]/n， y 
Trying to update options fle;， C:\Documents and Settings\helloworld\ Application Data\MathWorks\Matlab\ 
R2007aNcompopts-bat 


From template: D:\NMatlab~ 1\Vbin\win32\mbuildopts\msvc60compp. bat 


一 > "D:NMatlab 一 1Nbin\win32\mwregsvr D:\NMatiab 一 Tbin\win32\mwcomutil. di" 


DIIRegisterServer in D:\Matlab~ INbinNwin32\mwcorutil. dll succeeded 
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一 > "D:NMatlab 一 1\bin\win32\mwregsvr D:\Matlab 一 T\bim\win32\mwcommegr- dl” 


DIIRegisterServer in D:NMatlab 一 1\bin\win32\mwcommegr. dll succeeded 


2.4 mee 编译 器 典型 应 用 


2.4.1 独立 可 执行 文件 


Matlab 编译 器 最 常见 的 应 用 就 是 将 其 编译 为 独立 可 执行 文件 ,假设 通过 Matlab 完成 了 
一 个 图 像 显 示 程 序 ,程序 的 代码 如 下 : 

function [= img() 

%function []=img() 

% 显示 当前 目录 下 文件 名 为 img.bmp 的 文件 

imshow('img.bmp)， 

在 Matlab 命令 行 输入 如 下 命令 : 


mcc -m img.m 


将 img. m 编译 为 独立 可 执行 文件 。 编 译 完成 后 ,如 果 查 看 一 下 当前 目录 ,可 以 发 现 目录 
中 多 了 几 个 文件 (如 表 2 - 1 所 列 ) ,这 几 个 文件 分 别 是 : img. ctf \img. prj \img_-main, c\img- 
mec_component_data. c 和 img. exe, 这 些 文件 的 功能 和 作用 如 表 2- 1 所 列 。 其 中 img, ctf 和 
img, exe 是 发 布 独立 可 执行 文件 所 必需 的 文件 ,img. prj img_main.c 和 img_-mecc-component- 
data. c 是 编译 img. exe 时 生成 的 中 间 文 件 。 
表 2-1 img 工 程 编辑 列表 























文件 名 | 功能 和 作用 
img.ctf ef 文 件 ,包含 程序 执行 所 需要 的 文件 和 数据 
img exe 编译 的 最 终结 果 , 是 img.m 文件 的 独立 可 执行 文件 
| img.pa 工程 文件 
img_main  c | 主 画 数 接口 文件 
上 E 一 上 | img_main.e 所 需 的 相关 数据 





1. 编译 过 程 

img. m 文件 编译 为 独立 可 执行 文件 的 过 程 如 图 2 - 3 所 示 ,整个 编译 过 程 的 最 终 目 标 是 生 
成 img. etf 和 img. exe 文件 ,其 中 img. exe 文件 为 最 终 独 立 可 执行 文件 ,img. ctf 文件 则 将 
img. exe 所 需 的 所 有 程序 和 数据 打包 放 在 了 一 起 。 

{1) img.etf 文件 的 生成 过 程 

Q@ 编译 命令 传递 给 Matlab 编译 器 。 

@ Matlab 编译 器 对 img. m 文件 进行 关联 分 析 , 目 的 是 寻找 执行 img. m 所 调用 的 所 有 程 
序 和 数据 。 
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图 2-3 img.m 文件 编译 为 独立 可 执行 文件 的 过 程 


图 根据 关联 分 析 的 结果 将 img. m 所 需 的 所 有 程序 和 数据 打包 生成 img. ctf 文件 。 

{2) img. exe 文件 的 生成 过 程 

@ 编译 命令 传递 给 Matlab 编译 器 。 

@@ Matlab 编译 器 生成 接口 文件 img_main. ec 和 img_mcc_component_data. c。 

图 这 些 接口 文件 连同 用 户 自 己 编写 的 C/C 十 十 文件 (本 例 中 没有 用 户 自 己 编写 的 C/ 
C+ 十 文件 ) 编 译 为 目标 文件 。 

图 通过 链接 器 将 目标 文件 .Matlab 核心 库 和 MCR 链接 生成 最 终 的 img. exe 文 件 。 

除了 要 生成 接口 文件 以 外 ,img. exe 的 生成 过 程 与 普通 的 C/C 十 十 程序 的 链接 过 程 是 一 
致 的 ,因此 从 这 里 可 以 看 出 ,Matlab 编译 器 只 生成 接口 文件 ,而 不 是 将 Matlab 程序 全 部 编译 
为 C/C 十 十 文件 。 

到 这 里 ,读者 可 能 会 有 新 的 疑问 ? 到 底 Matlab 编译 器 生成 的 接口 文件 是 什么 样 的 ? 下 面 
就 对 img. ctf img_main. c.img_mcc_component_data. c 进行 详细 的 剖析 。 

2.img.etf 文件 

由 于 img. ctf 采用 的 是 标准 的 压缩 算法 ,因而 为 了 了 解 img. ctf, 可 以 采用 一 种 非常 的 手段 ， 
即将 img. ctf 用 解压 缩 软 件 (例如 WinRar 软件 ) 解 压 。 解 压 以 后 的 img. ctf 包含 如 图 2- 4 所 示 的 
内 容 , 此 时 如 果 打开 img 文件 夹 ,也 许 就 能 发 现 里 面 有 编译 过 的 img. m 文件 ,并 且 img. m 文件 已 
经 被 加 密 , 用 Matiab 代码 编辑 器 打开 以 后 会 是 一 堆 乱码 。 另 外 ,打开 toolbox 目录 ,可 以 发 现 如 
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图 2-5 所 示 的 内 容 ,从 名 称 上 可 以 推测 出 这 些 文件 是 执行 img. m 文件 时 所 需 的 Matlab 工具 箱 
中 的 文件 。 


文件 @) 编辑) 查看 Q) 收 基 人 工具 CO) 帮助 
@ 银 - 二 让 万 旦 文件 夹 ”[ 下 - 


地 址 锯 ) | 辐 D: Wetlab\codeVimg\ing Y 加 有 到 
5 TFT 已 je 
文件 和 文件 夷 任务 img_0DA090824890621DDA27080 了 48494FB1 toclbox 


加 皇 一 人 商 放 天 











图 2-4 img.ctf 解压 后 的 文件 目录 内 容 


短 toolboz 
文件 @) 锭 各 到 ) 查看 中。 收藏 人 工具) 
@@ 银 . 园 - 让 万 时 辽 z [ 国 - 


已 Daasveodeviseintvtealtee 国 园 和 
名 称 大 小 ” 关 型 


Copilier 文件 坎 
文件 夹 
文件 寥 
文件 严 
文件 严 








图 2-5 img.cetf 解压 后 toolbox 目录 中 的 内 容 
3.img_main. c 
img_main. c 文件 的 代码 以 及 其 中 包含 的 函数 列表 如 下 。 


@ static int mclDefaultPrintHandler(Cconst char* s)# 





tatic int mclDefaultErrorHandler(const charx s)5 
图 bool MW_CALL_CONV imgInitializeWithHandlers( 
meclOutputHandlerFcn error_handler， 
mclOutputHandlerFcn print_handler)， 
团 LIB_img_C_API bool MW_CALL_CONV imgInitializeCvoid)， 
回 LIB_img_C_API void MW_CALL_CONV imgTerminate(void); 
@@ int run_main(int argcvconst char* * argv); 
@ int main(int argcvconst charx * argV)5 
这 些 函 数 的 功能 和 调用 顺序 如 图 2-6 所 示 。 
从 图 2 -6 中 可 以 看 出 ,run_main 函数 才 是 主体 函数 ,其 他 函数 则 用 来 完成 必 
始 化 和 程序 终止 任务 。 在 run_main 函数 中 ,通过 语句 : 
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(D imginitialize ”一 一 一 一 一 全 imgInitialize 调用 imgInitializeWithHandlers 
订 执 用 的 人 





























imgInitiatizcWithHandlers 。 | 调用 metTerminateInstance 





图 2-6 img_main.ec 各 主要 函数 功能 和 调用 顺序 
_retval = mclMain(_mcr_inst,argcyargv，img" ,0); 
通知 MCR 执行 img. m 程序 (img. m 存在 于 img. ctf 文件 中 )。 为 了 深入 剖析 这 条 语句 的 
功能 ,在 externNincludeNmclmecr.h 文件 中 ,可 以 找到 mclMain 函数 的 定义 如 下 ， 
EXTERNLC int mclMain(HMCRINSTANCE inst,int argc， 


const char w argy[] ,const char * namevint nlhs)， 


对 于 输入 参数 ,其 中 ， 


HMCRINSTANCE insty // 表 示 应 用 程序 句柄 

int argci // 应 用 程序 命令 个 数 

const char * argv[]; // 应 用 程序 命令 

const char * namey // 通 知 MCR 执行 的 Matlab 程序 名 
int nlhs; // 给 出 参数 个 数 


可 以 看 出 ,run_main 函数 中 对 mclMain 函数 调用 的 功能 可 以 解释 为 : 在 以 -mer-_inst 句柄 表 
示 的 应 用 程序 (已 经 在 imglnitializeWithHandlers 中 初始 化 ) 中 通知 MCR 执行 名 称 为 img. m 
的 Matlab 程序 ,输出 参数 的 个 数 为 0。 

/Vimg_main.c 代码 

#include 一 stdio.h> 

#include "mcimcr.h” 

# ifdef cplusplus 

extem"C' 1 

间 endif 
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extern mclComponentData __MCC_img_component_datai; 
间 ifdef __cplusplus 
井 endif 


static HMCRINSTANCE _mcr_inst= NULL; 


# 井 ifdef __cplusplus 
extern "C” 人 
#endif 


static int mclDefaulPrintHandler(const char *s) 
{ 
return mclWrite(1 / * stdout * /sysizeof(char) * strlen(s)); 


井 ifdef __cplusplus 
)} /w End extermn"“C" block* / 
#endif 


间 ifdef 
extern "C' 
间 endif 


cplusplus 
{ 








static int mclDefaultErrorHandlerCconst char *S) 
{ 
int written=0; 
size_tlen=0 
len=strlen(s)， 
written = mclWrite(2 / * stderr * /,s,sizeof(charn len) 
if (len>0&&s[len-1]1!1 = \n) 
written + = mclWrite(2 / * stderr* /，\n ,sizeof(char)); 
retum written 





#ifdef _cplusplus 
} /1w End extem "C' blocdky / 
井 endif 


/This symbol is defined in shared libraries，Define it here 
《to nothing) in case this isnt a shared library- 
二 
间 ifndef LIB_img_C_API 
# define LIB_img_C_API / * No special import/export declaration * / 
##endif 
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UB_img_C_API 

bool MW_CALL_CONMV imginitializeWithHandlers( 
mclOutputtHandlerFcn error_handler, 
mclOutputHandlerfcn print_handler 


放 (_mcr_inst ! = NULL) 

retumn truey 

疼 〈! mclmcrlnitialize()) 

retumn false; 

证 《1 mclinitializeComponentlnstance(&_mcr_inst,&__MCC_img_component_data， 
true,NoObjectType,ExeTarget， 
error_handler,print_ handler)) 

return false; 
return truey 


LIB_img_C_API 
bool MW_CALL_CONYV imginitializeCvoid) 
{ 
return imglnitializeWithHandlersC(mclDefaultErrorHandler 
mclDefaukPrintHandler) 


LIB_img_C_API 
void MW_CALL_CONY imgTerminate(void) 
{ 
首 (_mcr_inst ! = NULL) 
mclTerminatelnstance(&_rmcr_instb) } 


int run_main(int argcvconst char * * argv) 
{ 
int _retval; 
1 Generate and populate the path_to_component- * / 
char path_to_component[ (PATH_LMAX * 2) + 1 
separatePathName(argvL[0] ,path_to_component'(PATHLMAX* 27 二 123 
__MCC_ime_component_data. path_to_component = path_io_component 
放 《! imginitializeC)》《 
retum 一 1 
}》 
_retval = mclMain(_mcr_instvargcvargv,img" ,0)， 
诉 (_retval == 0 / * no error * /) mclWaitForfiguresToDie(NULL); 
imgTerminate(); 
mclTerminateApplication(); 
return _retval; 
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)》 


int main(int argc,const char * * argv) 
{《 

放 〈! mcllnitializeApplication( 
__MCC_img_component_data_ runtime_options， 
__MCC_img-_component_data. runtime_option_count) ) 
retum 0 


return mcIRunMain(run_main,argc,argv); 
}》 


4， img_mecc_component_data. c 
img_mcc_component_data. c 文件 中 ,主要 包含 对 结构 体 
mclComponentData __MCC_img_component_data 


的 初始 化 。__MCC_img_component_data 结构 体 包含 了 img_main. c 程序 所 需要 的 所 有 初始 
化 参数 。 当 Matlab 编译 器 编译 img. m 时 ,这 些 初始 化 参数 以 const 常量 的 方式 自动 生成 并 放 
在 img_mcc_component_data. c 文件 中 ,然后 在 声明 __MCC_img_component_data 结构 体 变 
量 时 再 用 这 些 const 常量 初始 化 __MCC_img_component_data 结构 体 变量 。 关 于 -_MCC- 
img_component_data 结构 体 变 量 各 结构 体 域 的 含义 ,读者 可 以 查看 externNinclude\mclmcr, h 
文件 中 关于 mclComponentData 结构 体 的 定义 说 明 。 


2.4.2 C 动态 链接 库 


采用 mee -B csharedlib:img img. m 将 img. m 编译 为 动态 链接 库 , 编 译 完成 以 后 ,会 生成 
如 下 文件 , img. himg. cvimg. ctf img. lib img. dll\img. prj\img.exports \img.exp img_mcc-_ 
component_data. c, 其 中 img. h 和 img. e 为 动态 链接 库 的 接口 文件 ,img. ctf 为 生成 的 ctf 文 
件 ,img.lib 和 img. dll 为 动态 链接 库 文件 ,img_mcc_component_data. c 为 MCR 初始 化 数据 
文件 。 这 里 ,重点 讲解 img.e 文件 的 组 成 ,img. e 文件 由 下 列 函 数组 成 : DllMain ,mclDefault- 
PrintHandler meclDefaultErrorHandler imgInitializeWithHandlers ,imgInitialize imgTermi- 
natevmlxImg .mlfImg, 其 中 比较 重要 的 函数 如 下 所 述 。 

1，DIIMain 

DilMain 是 动态 链接 库 的 人口 函数 ,在 Matlab 生成 的 C 十 十 动态 链接 库 中 ,DilMain 函数 
的 主要 作用 是 查找 动态 链接 库 所 在 的 目录 信息 。MCR 可 利用 此 目录 信息 查找 动态 链接 库 对 
应 的 etf 文件 。 

2，imgInitialize 

imgInitialize 是 初始 化 动态 链接 库 。 

3. imgTerminate 

imgTerminate 是 中 止 动态 链接 库 。 

4. mlxImg 

mlxImg 与 mlfImg 函数 的 功能 相同 , 即 执行 img. m 文件 的 主要 功能 ,但 是 其 输入 参数 与 
mexFunction 相同 ,其 定义 如 下 : 
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bool mlximg(int nlhs,mxArray * plhs[] ,int nrhs,mxArray * prhs[]) 
其 中 ， 

nlhs 表示 输出 参数 个 数 ,plhs 表示 输出 参数 的 mxArray 数组 ; 

nrhs 表示 输入 参数 个 数 ,prhs 表示 输入 参数 的 mxArray 数组 。 

SmlfImg 

mlfImg 函数 与 mlxImg 函数 的 功能 相同 , 即 执行 img. m 文件 的 主要 功能 ,但 其 输入 参数 
与 mlxImg 不 同 。img 函数 的 输入 参数 为 逐个 输入 形式 ,而 不 是 数组 形式 。 本 例 中 没有 参数 ， 
假设 img. m 文件 中 img 函数 有 一 个 输入 参数 in 的 话 ， 际 生 成 的 img 函数 定义 如 下 : 


mlfimg(mxArray win) 


img.h 包含 img. dll 动态 链接 库 的 导出 函数 声明 ,img. lib 包含 img. dll 动态 链接 库 的 符 
号 表 。 在 实际 应 用 中 ,如 果 采 用 静态 链接 ,需要 img.h img. dll 和 img.lib 三 个 文件 ;如 果 采 用 
动态 链接 ,只 需要 img. dll 一 个 文件 。 此 时 可 以 采用 Visual C 十 十 6.0 自 带 的 Depends 工具 
查看 img. dll 的 导出 函数 名 称 列表 ,如 图 2 -7 所 示 , 实 际 上 img. dll 导出 了 五 个 函数 , 即 
mlfImg vimgInitialize imgInitializeWithHandlers imgTerminate 和 mlxImg。 如 果 采 用 静态 链 
接 的 话 , 则 不 需要 考虑 这 些 ,而 只 要 包含 img. h 头 文件 即 可 使 用 。 但 是 ,如 果 采 用 动态 链接 的 
话 , 则 是 要 使 用 函数 名 得 到 img. dl 导出 函数 的 地 址 (参考 附录 中 有 关 动 态 链接 的 相关 知识 ) 。 
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图 2-7 通过 Depends 工具 分 析 img. dll 的 导出 函数 列表 
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2.4.3 C 十 十 动态 链接 库 


采用 mcc -B cpplib:img img. m 将 img. m 编译 为 动态 链接 库 ,编译 完成 以 后 ,会 生成 如 下 
文件 : img.h ,img. cpp img. ctf\img.lib img. dll .img. pr .img. exports \img. exp 和 img_mec 
_component_data. c。 其 中 img. h 和 img. cpp 为 动态 链接 库 的 接口 文件 ,img. ctf 为 生成 的 ctf 
文件 ,img.lib 和 img. dll 为 动态 链接 库 文 件 ,img_mcc_component_data. e 为 MCR 初始 化 数 
据 文件 。 这 里 ,重点 讲解 img. cpp 文件 的 组 成 。img. cpp 文件 由 下 列 函 数组 成 : DIMain、 
melDefaultPrintHandler、mclDefaultErrorHandler imgInitializeWithHandlers 、 imgInitialize、 
imgTerminate.mlxImg 和 img, 其 中 比较 重要 的 函数 如 下 所 述 。 

1， DIMain 

DIiMain 是 动态 链接 库 的 和 人口 函数 ,在 Matlab 生成 的 C 十 十 动态 链接 库 中 ,DIIMain 函数 
的 主要 作用 是 查找 动态 链接 库 所 在 的 目录 信息 。MCR 利用 此 目录 信息 查找 动态 链接 库 对 应 
的 etf 文件 。 

2. imgInitialize 

imgInitialize 是 初始 化 动态 链接 库 。 

3，. imgTerminate 

imgTerminate 是 中 止 动态 链接 库 。 

4.，mlxImsg 

mlxImg 与 img 函数 的 功能 相同 , 即 执行 img. m 文件 的 主要 功能 ,但 是 其 输入 参数 与 
mexFunction 相同 ,其 定义 如 下 : 

bool mlximg(int nihs,mxArray * plhs[] ,int nths,mxArray * prhs[]) 


其 中 ， 

nlhs 表示 输出 参数 个 数 ,plhs 表示 输出 参数 的 mxArray 数组 ; 

nrhs 表示 输入 参数 个 数 ,prhs 表示 输入 参数 的 mxArray 数组 。 

S，img 

img 函数 与 mlxlmg 函数 的 功能 相同 , 即 执行 img. m 文件 的 主要 功能 ,但 其 输入 参数 与 
mlxImg 不 同 。img 函数 的 输入 参数 为 逐个 输入 形式 ,而 不 是 数组 形式 。 本 例 中 没有 参数 , 假 
设 img. m 文件 中 img 函数 有 一 个 输入 参数 in 的 话 , 实 际 生成 的 img 函数 定义 如 下 : 


void img(const mwArray& in) 


这 里 有 一 个 问题 需要 注意 , 即 输入 参数 采用 的 是 mwArray 类 型 而 不 是 mxArray 类 型 ,这 
也 是 C 十 十 动态 链接 库 和 C 动态 链接 库 的 重要 区 别 之 一 ,关于 mwArray 类 在 3.4 小 节 中 会 有 
详细 讲解 。 

img.h 包含 img. dll 动态 链接 库 的 导出 函数 声明 ,img. lib 包含 img. dll 动态 链接 库 的 符 
号 表 。 在 实际 应 用 中 ,如 果 采 用 静态 链接 ,需要 img. himg. dll 和 img.lib 三 个 文件 ;如 果 采 用 
动态 链接 ,只 需要 img. dll 一 个 文件 。 此 时 可 以 采用 Visual C 十 十 6. 0 自 带 的 Depends 工具 
查看 img. dll 的 导出 函数 名 称 列表 ,如 图 2- 8 所 示 , 实 际 上 img. dll 导出 了 五 个 函数 , 即 ?img 
@@YAXABVmwArray@@@Z.imgInitialize ,imgInitializeWithHandlers`imgTerminate 和 
mlxImg。 如 果 采 用 静态 链接 的 话 , 不 需要 考虑 这 些 问 题 ,只 要 包含 img. h 头 文件 即 可 使 用 。 
但 是 ,如 果 采 用 动态 链接 的 话 , 则 是 要 考虑 img. dll 导出 的 函数 中 哪些 是 C 十 十 标准 的 ,而 哪些 
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是 C 标准 的 。 
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图 2-8 通过 Depends 工具 分 析 img. dll 的 导出 函数 列表 


2.4.4 C/C 十 十 动态 链接 库 的 不 同 之 处 

CVC 十 十 动态 链接 库 之 间 是 存在 不 同 的 ,了 解 这 些 不 同 之 处 ,才能 决定 到 底 哪 种 动态 链接 
更 符合 实际 应 用 程序 的 要 求 。C/C 十 十 动态 链接 库 的 不 同 之 处 总 结 如 下 所 述 。 

1. 生成 的 接口 文件 语言 不 同 

顾名思义 ,C 动态 链接 库 的 接口 文件 是 C 风格 的 :C 十 十 动态 链接 库 的 接口 文件 是 C 十 十 
风格 的 

2. 生成 的 动态 链接 库 导出 函数 不 同 

C 动态 链接 库 导 出 的 主 函 数 带 有 mlf 前 缀 (比如 mlfImg) ,而 C 十 十 动态 链接 库 导出 的 主 
函数 则 不 带 mlf 前 缀 (比如 img)。 

3. 生成 的 动态 链接 库 导出 函数 的 风格 不 同 

C 动态 链接 库 导出 函数 都 是 C 风格 的 :C 十 十 动态 链接 库 主 函 数 ( 比 如 ,img 函数 导出 函数 
名 为 ?img@@YAXABVmwArray@@@Z) 导 出 采用 C 十 十 风格 ,其 他 函数 采用 C 风格 的 。 

4. 主 函 数 输入 输出 的 阵列 类 型 不 同 

C 动态 链接 库 中 主 函 数 输入 输出 的 阵列 类 型 都 是 mxArray 类 型 ,而 C 十 十 动态 链接 库 中 
主 函 数 输入 输出 的 阵列 类 型 都 是 mwArray 类 型 。 其 中 mxArrray 是 一 个 结构 体 类 型 ， 
mwArray 是 一 个 C 十 十 类 类 型 ,这 两 个 阵列 类 型 的 操作 方式 是 完全 不 同 的 ,这 一 点 请 读者 
注意 。 
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2.5 进一步 了 解 mcec 命令 


2.5.1 mecec 常用 命令 选项 
mcc 常用 命令 选项 如 表 2 -2 所 列 。 


表 2-2 mee 常 用 命令 选项 列表 





功能 描述 





-a 人 ilename 


添加 名 称 为 filename 的 文件 到 ctf 文件 中 ,比如 数据 文件 或 者 其 他 的 程序 文件 ,因为 Matlab 编译 
程序 通过 关联 分 析 并 不 能 发 现 程序 执行 所 需 的 所 有 文件 。 比 如 要 汪 加 dara. mat 文件 到 ctf 文件 
中 ,需要 的 语句 为 


mcec -a data. mat 





用 以 执行 捆绑 命令 文件 (Bundie File) ,比如 将 img. m 编译 为 名 称 为 img 的 “动态 链接 库 可 以 采用 
如 下 方式 : 

mee -B csharedlib:img img. m 

将 img. m 编译 为 名 称 为 img 的 C 十 十 动态 链接 库 则 可 以 采用 如 下 方式 : 


mce -B cpplib:img img. m 





生成 C 接口 文件 ,此 命令 等 同 于 : 
T codegne 





-d direetory 


设置 输出 到 指定 目录 





-F project_name. pq 


采用 指定 的 工程 文件 进行 编译 ,工程 文件 包含 了 所 有 命令 参数 ,不 需要 再 输入 其 他 参数 





生成 debugging 信息 





齐 
-Ldirectory 


采用 mce 时 增加 m 文件 的 搜索 目录 





4 


编译 C 动态 链接 库 ,此 命令 等 同 于 : 





mm 


-W lib-T linkstib 
编译 独立 可 执行 文件 ,此 命令 等 同 于 : 


-W main-T link:exe 





-M string 


向 mbuild 传递 参数 





-o outputifile 


指定 输出 文件 的 名 称 





-R oprion 


为 MCR 指定 运行 选项 ,其 中 option 可 以 选择 两 个 值 : 
-nojvm 
-nojit 





编译 时 显示 编译 信息 





-W type 








控制 生成 接口 文件 的 类 型 ,其 中 type 可 以 设 定 为 , mainvcpplib,lib,nonevcom 五 种 类 型 ,最 常用 
的 为 : 

main ”独立 可 执行 接口 文件 

cpplib C 十 十 动态 链接 库 接口 文件 

lib “C 动态 链接 库 接 口 文件 

none “不 生成 任何 接口 文件 

com ”com 组 件 接口 文件 
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续 表 2-2 





选 项 功能 描述 





控制 编译 器 的 编译 输出 类 型 ,其 中 target 可 以 设 定 为 codegen, compile: exe,compile:lib,link， 
exevlinkslib 五 种 类 型 ,其 中 ， 

codegen ”表示 生成 C/C 十 十 接口 文件 

-T target compile:exe ”表示 与 codegen 相同 ,并 同时 编译 

compile:lib ”表示 与 codegen 相同 ,并 同时 编译 

link:exe ”表示 与 complie:exe 相同 ,并 同时 链接 为 独立 可 执行 文件 

link:lib ”表示 与 compile:lib 相同 ,并 同时 链接 为 动态 链接 库 文件 














-path 设 辕 需要 链接 的 库 文件 和 头 文件 的 路 径 





2.5.2 捆绑 命令 文件 (bundle file) 


Matlab 编译 器 命令 mec 的 参数 比较 多 ,为 了 简化 命令 输入 方式 ,Matlab 编译 器 提供 了 捆 
绑 命令 文件 (bundle file) 机 制 ,所 有 捆绑 命令 文件 都 在 toolbox\compiler\bundles 目录 下 。 以 
cpplib 为 例 , 用 文本 编辑 器 打开 toolbox\compiler\bundles\cpplib 文件 ,文件 的 内 容 如 下 ， 


-W cpplib: 负 1$-T linkslib 


其 中 ,%%1% 表 示 输 入 参数 。 捆 绑 命 令 文件 (bundle file) 采 用 -B 选项 调用 ,例如 采用 如 下 方式 
将 img. m 编译 为 名 称 为 img 的 C 十 十 动态 链接 库 ， 

mcc -B cpplibting img.m 
命令 “-B cpplib:img” 的 含义 可 以 理解 为 用 “-W cpplib:img-T link:lib” 蔡 代 “-B cpplib:img”， 
其 中 img 为 cpplib 命令 捆绑 命令 cpplib 的 输入 参数 。 

在 toolbox\compiler\bundles 目录 下 ,还 存在 很 多 捆绑 命令 文件 ,比如 : 

@ macro_option _m:-W main-T link:exe 

@ csharedlib:-W lib:%%1%-T link:lib 
一 般 情 况 下 ,读者 只 需要 知道 如 何 使 用 这 些 捆绑 命令 文件 即 可 ,如 果 有 必要 ,读者 可 以 自行 编 
写 捆绑 命令 文件 以 降低 使 用 mec 命令 的 复杂 度 。 


2.6 ”Matlab 编译 器 高 级 应 用 


2.6.1 编译 script 文件 
Matlab 编译 器 只 能 编译 函数 文件 ,如 果 确 实 需要 编译 script 文件 ,可 以 把 script 文件 转换 
为 一 个 输入 和 输出 参数 都 为 空 的 函数 文件 。 比 如 下 列 script 文件 代码 : 


吧 计算 并 显示 1 到 100 的 和 
v=1:100; 


V_sum=sum(v(:)); 





disp(v_sum)， 


可 以 转换 为 如 下 的 函数 文件 : 
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function [= calsum1000) 
% 计 算 并 显示 1 到 100 的 和 
v=1:100， 





v_sum=sumCv(:))， 


disp(v_sum) 


当 script 文件 转换 为 函数 文件 以 后 (假设 函数 文件 的 名 字 为 calsum100. m), 可 以 调用 
mece 命令 对 其 进行 编译 。 


2.6.2 Matlab 编译 器 关联 分 析 失 效 的 情况 


Matlab 编译 器 关联 会 分 析 会 在 某 些 情况 下 漏 掉 某 些 函数 文件 ,这 时 候 如 果 进 行 编 译 , 无 
论 是 编译 可 执行 文件 还 是 编译 动态 链接 库 文 件 ,最 终 都 会 导致 运行 失败 。 最 常见 的 情况 即 编 
译 图 形 界面 callback 函数 .eval 函数 和 feval 函数 时 会 发 生 这 种 错误 。 下 面 分 别 以 callback 函 
数 和 eval 函数 为 例 说 明 。 

1. eallback 函数 

以 callbacktest 函数 为 例 ,其 代码 如 下 所 示 。 

% 并 function clickcallback 

function 门 = callbacktest() 

%%function [= callbacktest() 

% 井 function clickcallback 

h= dialog; 

pos = get(h,position) 

pos(3) = 250; 

pos(4) = 250; 

set(h, position' ,pos) + 

hButton = uicontrol(h,'String!,'Click Me' ,CallBack' clickcallback'，FontSize',35)4 

pos = get(hButton,,position') ; 

pos(3) = 200; 

pos(4) = 200: 

set(hButton,,position' ,pos)# 

function clickcallback(hobj,eventdata) 

msgbox('Button Clicked! 3 


在 callbacktest 中 建立 了 一 个 按钮 控件 , 当 按 Click Me 
钮 被 单 击 时 会 调用 名 称 为 clickcallback 的 函数 ， 
clickcallback 函数 存在 于 另 一 M 文件 clickcall- 
back. m 中 。 如 果 采 用 mee -m callbacktest  m 将 
callbacktest. m 编译 为 独立 可 执行 文件 的 话 , 编 译 
过 程 不 会 有 任何 错误 ,但 是 执行 时 如 果 单 击 Click 
Me 按钮 (如 图 2 -9 所 示 ) 却 会 发 现 执行 错误 ,错误 


信息 为 图 2-9 calibacktest 界面 
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?3? Undefined function or variable "clickcallback' 
?3?3? Error while evaluating uicontrol Callback 


这 个 错误 的 发 生 表明 clickcallback. m 文件 没有 被 打包 到 callbacktest. ctf 文件 中 , 即 
Matlab 编译 器 没有 检测 到 clickcallback. m 与 callbacktest. m 的 关联 关系 ,此 时 Matilab 编译 
器 的 关联 分 析 失效 了 。 

有 三 种 办 法 可 以 解决 这 种 问题 。 

第 一 种 是 采用 mee 的 -a 命令 选项 ,把 编译 器 没有 检测 到 的 clickcallback. m 文件 强制 打包 
到 callbacktest ctf 文件 中 。 如 果 是 编译 为 独立 可 执行 文件 , 即 采用 如 下 命令 行 : 


mcc -a clickcallback.m -m callbacktest. m 


第 二 种 是 callback 函数 采用 函数 句柄 的 方式 调用 , 即 语句 : 
hButton = uicontrol(h,'String',Clidk Me'，CallBacdk' clickcallback'，Fontsize',35)， 


可 以 更 改 为 (请 注意 带 下 划 线 的 语句 ): 

hButton = uicontrol(h,'String'，Click Me'，CallBack',@clickcallback，FontSize',35); 

第 三 种 是 在 主 函 数 callbacktest. m 中 通过 欠 # function 标志 显 式 通知 编译 器 哪些 函数 需 
要 编译 并 打包 到 ctf 文件 中 。 对 于 本 例 ,只 需 在 calibacktest. m 文件 函数 实体 的 开始 加 上 该 标 
志 语句 然后 再 编译 即 可 。 

2， evalfeval 函数 

编译 带 有 eval 和 feval 函数 的 Matlab 程序 会 出 现 与 callback 函数 同样 问题 。 以 eval 函 
数 为 例 ,在 evaltest, m 文件 中 ,通过 eval 函数 调用 了 showdlg 函数 。 如 果 采 用 mcc -m evalt- 
ests m 将 evaltest m 编译 为 独立 可 执行 文件 的 话 , 编 译 过 程 不 会 有 任何 错误 ,但 是 执行 时 会 发 
生 如 下 错误 ， 

?22 Undefined function or variable clickcallback' 

?2?? Error while evaluating uicontrol callback 


引起 这 种 问题 的 原因 同样 是 由 于 Matlab 编译 器 的 关联 分 析 失效 ,showdlg. m 文件 没有 
被 打包 到 evaltest, ctf 文件 中 ,解决 方法 与 callback 函数 的 解决 方法 类 似 , 读 者 可 以 以 evalt- 
est, m 为 例 练习 一 下 。 


站 物 骆 鸣 驹 生 引 鸡 骆 驳 站 双双 驹 双色 生生 双双 和 %%%%%%%%%%%%%%%%%%%% 
%evaltest.m 文件 

function []= evaltest() 

%function []= evaltest() 

eval('showdlg)， 

名 和 双 物色 站 和 交响 鸡 病 站 入 双 冯 冯 外 % 私 和 % 允 中 和 %%%% 吧 和 % 引 % 吧 和 双色 % 





拍 胎 驹 骆 骆 骆 驳 骆 驹 骆 络 物 况 生物 中 驹 双 物 六 骆 物 各 和 各 和 站 忠和 和 和 和 和 和 
%showdlg.m 文件 

fonction []= showdlg; 

h= dialogy 
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pos = get(h, ,position' ); 

pos(3) = 250; 

pos(4) = 250; 

set(h, ,position ,pos); 

hButton = uicontrol(h,'String','Click Me'，CallBack',@click,FontSize',35); 
pos = get(hButton, ,position); 

pos(3) = 200; 

pos(4) = 200 

set(hButton, position' ,pos) 


function click(hobj,eventdata) 
msgbox('Button Clicked! 0) 
六 驹 骆 骆 物 物 物 物 跑 物 骆 物 物 物 篇 骆 物 踊 入 中 物 中 和 和 和 和 和 和 和 和 和 和 和 和 


2.6.3 从 C/C 十 十 中 调用 Matlab 内 置 函数 (built-in function) 


Matlab 的 内 置 函 数 (built-in function) 没 有 给 出 C/C 十 十 接口 ,但 是 可 以 通过 M 文件 调 
用 Matlab 内 置 函 数 。 例 如 ,如 果 用 户 需要 调用 magic 内 置 函数 , 则 可 以 编写 下 面 的 mag- 
icsquare. m 文件 间接 调用 magic 内 置 函数 。magicsquare. m 文件 完成 的 功能 就 是 嵌 套 了 
magic 内 置 函 数 的 调用 。 通 过 mce -csharedlib:magicsquare magicsquare. m 将 其 编译 为 C 动 
态 链接 库 或 者 通过 mce -cpplib:magicsquare magicsquare. m 将 其 编译 为 C 十 十 动态 链接 库 , 然 
后 再 通过 C/C 十 十 程序 调用 动态 链接 库 即 可 完成 magic 内 置 函数 的 调用 。 

function m= magicsquare(n) 

%function m= magicsquare(n) 

% 调 用 Matlab 内 置 函 数 magic 生成 魔方 数组 

% 魔 方 数 组 的 行列 和 对 角 线 元 素 的 和 相同 

诈 ischar(n) 

n= str2num(n); 
end 


m= magic(n)， 


2.6.4 可 变 参 数 传递 (varargin ,varargout) 


Matlab 语言 的 一 个 重要 的 特点 就 是 可 以 输入 和 输出 可 变 参数 ,其 中 输入 可 变 参 数 采用 
varargin 元 组 阵列 表示 ,而 输出 参数 采用 varargout 元 组 阵列 表示 。 但 是 C/C 十 十 函数 的 输入 
和 输出 参数 则 必须 是 固定 ,那么 如 果 采 用 可 变 参数 的 Matlab 程序 编译 为 动态 链接 库 以 后 ,如 
何 通过 C/C 十 十 来 调用 呢 ? 下 面 以 var_uncertain 函数 为 例 , 来 说 明 这 个 问题 。 

var_uncertain 函数 的 输入 为 x,y 加 上 一 个 可 变 参 数 varargin, 输 出 为 ab 加 上 一 个 可 变 
参数 , 函数 实体 不 实现 任何 功能 ,只 是 将 输入 参数 原样 传递 给 输出 参数 。 采 用 
mec -B csharedlib: var_uncertain var_uncertain. m 将 其 编译 为 C 动态 链接 库 以 后 ,打开 var- 
uncertain. h 文件 ,可 以 看 出 var_uncertain 函数 的 接口 函数 为 : 
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bool mlfvar_uncertain( 
int nargout,mxArray * * avmmxArray* * b， 
mxArray x * varargoutyrnxArray x xy 
mxArray wyvmxArray * varargin) 


通过 观察 ,可 以 看 出 对 于 输出 参数 通过 nargout 确定 总 的 输出 参数 个 数 , 其 中 mxArray * 
* varargout 用 来 表示 可 变 的 输出 参数 ,其 个 数 用 nargout 一 2 来 确定 ( 减 2 表示 输出 参数 中 确 
定 的 参数 为 两 个 ) 。 而 输入 参数 的 个 数 没有 在 程序 明确 表示 ,因而 在 使 用 时 需要 特别 注意 , 尤 
其 在 初始 化 mxArray * varargin 元 组 阵列 时 更 要 注意 。 因 而 ,一 般 情 况 下 不 建议 使 用 可 变 输 
人 参数 ,因为 稍 有 不 慎 就 会 导致 程序 产生 致命 的 错误 。 如 果 确 实 要 使 用 可 变 输入 参数 ,程序 开 
发 人 员 要 在 Matlab 程序 对 各 种 情况 进行 出 错 处 理 ,而 且 在 发 布 Matlab 编译 器 编译 后 的 动态 
链接 库 时 ,需要 详细 说 明 输入 参数 的 类 型 .个 数 以 及 初始 化 的 方法 等 。 

如 果 采 用 mce -B cpplib:var_uncertain_cpp var_uncertain. m 将 其 编译 为 C 十 十 动态 链接 
库 的 话 , 生 成 的 var_uncertain 接口 函数 则 略 有 不 同 , 如 下 所 示 : 


var_uncertain(int nargout,mwArray& avmwArray& b， 
mwArray& varargout,const mwArray& x， 


const mwArray& yvconst mwArray& varargin) ， 


其 处 理 可 变 输入 输出 参数 的 方法 与 C 接口 函数 mlfVar_uncertain 是 一 致 的 ,只 是 采用 的 是 
mwArray 类 而 不 是 mxArray 接口 体 表 示 Matlab 阵列 。 


function [a,b,varargout] = var_uncertain(xyyvvarargin) 
%%function [a,b,varargout] = var_uncertain(xyyvvarargin) 
a=xi 

b=y 

no= length(varargout( :)); 

mi= length(varargin(:)) 


n= minCnivno)， 
fori= 1:n 

varargout(iD) = varargin(D 
end 


放 no>i 
fori= (n+ 1):no 


varargout(D =[]; 


else 


2.6.5 ”Matlab 环境 下 执行 和 MCR 执行 的 不 同 之 处 
在 Matlab 执行 m 程序 与 经 过 Matlab 编译 器 编译 后 通过 MCR 执行 四 程序 基本 相同 ,但 
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是 有 些 功 能 在 Matlab 环境 下 可 以 执行 ,但 是 通过 MCR 执行 却 会 发 生 错 误 。 比 如 addpath 函 
数 和 print 函数 ,这 一 点 需要 引起 读者 注意 。 如 果 程 序 调 用 了 这 些 函 数 . 就 需要 做 一 些 特 殊 处 
理 , 和 否则 编译 后 通过 MCR 执行 的 时 候 就 会 报错 。 幸 好 Matlab 提供 了 解决 这 种 问题 的 方法 ， 
使 用 isdeployed 函数 可 以 判断 当前 M 文件 到 底 是 在 Matlab 还 是 MCR 环境 下 执行 ,然后 特殊 
情况 特殊 处 理 。 以 print 函数 (打印 figure 窗口 ) 为 例 , Matlab 提供 了 deploypint 函数 作为 蔡 
代 。 如 下 的 print_figure 函数 就 提供 了 一 个 分 别 在 Matlab 环境 和 MCR 环境 处 理 的 实例 。 程 
序 采 用 isdeployed 判断 m 程序 到 底 在 Matlab 还 是 MCR 环境 执行 ,如 果 在 MCR 环境 下 执行 
采用 deployprint 函数 替代 print 函数 。 
function [ 门 = print_figure(hf) 
% function [] = print_figureChf) 
if nargin== 0 
hf= figures 
sphere; 
else 
end 


if isdeployed % MCR 运行 
deployprint(hp)， 

else % Matlab 运行 
print(hf)， 

end 

isdeployed 

deployprint 


2.6.6 获取 CTF 文件 的 目录 


编写 Matlab 程序 的 时 候 , 有 时 候 需 要 获取 编译 后 Matlab 程序 通过 MCR 运行 时 对 应 的 
CTF 文件 目录 。Matlab 提供 了 ctfroot 函数 用 以 获取 CTF 文件 的 目录 。 如 果 在 程序 中 需要 
获取 CTEF 文件 的 目录 ,只 需要 调用 ctfroot 函数 即 可 。 如 下 所 述 ,在 showetfroot, m 文件 中 ， 
实现 的 功能 即 获 取 CTF 文件 的 目录 并 显示 出 来 。 

如 果 showetfroot. m 编译 为 C 十 十 动态 链接 库 , 用 户 可 以 通过 showectfroot 对 应 的 接口 函 
数 获 取 CTF 文件 的 路 径 信息 ,其 中 showectfroot 对 应 的 接口 函数 为 : 


bool mlxShowctfroot( int nlhs,mxArray * plhs[] ,int nrhs,mxArray * prhs[])， 
void showctfroot(int nargout,mwArray& ctfpath); 
如 果 showetfroot. m 编译 为 C 动态 链接 库 ,可 以 采用 类 似 操作 。 


function [] = testctfroot( ) 
showctfroots 


function [ctfpath] = showctfroot() 
%function [etfpath] = showctfroot() 
ctfpath = ctfroot; 
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disp(ctfpath) ; 


2.6.7 屏幕 打印 和 错误 信息 显示 函数 


编译 Matlab 程序 时 ,会 在 主 程序 接口 文件 中 看 到 mclDefaultPrintHandler 和 mclDefault- 
ErrorHandler 这 两 个 函数 ,它们 在 print_error_handle_testInitialize 函数 中 初始 化 为 程序 默认 
的 屏幕 打印 和 错误 信息 显示 函数 。 如 果 用 户 需 要 ,可 以 自行 定制 这 两 个 函数 , 即 自己 编写 或 者 
改动 这 两 个 函数 (其 实 接口 文件 中 的 所 有 函数 都 可 以 进行 改动 或 者 重新 编写 ,然后 再 利用 
mbuild 编译 器 编译 ) 。 下 面 以 print_error_handle_test m 为 例 , 说 明 屏 幕 打印 和 错误 信息 显 
示 函 数 的 处 理 方法 。 

function [] = print_error_handle_test() 

%function [] = print_error_handle_test() 

a=magic(3)4 

disp(a); 

error('print_error_handle_test 函数 在 此 发 生 错 误 ) + 


在 print_error_handle_test 函数 中 ,笔者 刻意 安排 了 屏幕 打印 和 错误 信息 显示 这 两 种 情 
况 , 其 中 disp 函数 负责 输出 阵列 a 的 信息 ,error 函数 负责 输出 错误 信息 。 首 先 ,采用 mcec -m 
print_error_handle_test. m 命令 将 其 编译 为 独立 可 执行 文件 。 这 时 候 如 果 打开 print_error- 
handle_test_main. ec 文件 的 话 ,可 以 看 到 mclDefaultPrintHandler,、mclDefaultErrorHandler、 
print_error_handle_testInitialize 三 个 函数 ,默认 的 情况 下 所 有 的 屏幕 打印 和 错误 信息 都 输出 
在 标准 设备 即 显 示 器 屏幕 上 。 假 如 希望 所 有 的 信息 能 够 输出 到 文件 中 ,以 方便 日 后 查看 ,就 可 
以 更 改 这 三 个 函数 。 为 了 实现 将 屏幕 打印 和 错误 信息 都 输出 到 文件 中 (output, txt), 可 对 
print_error_handle_test_main. c 进行 了 改动 ,改动 如 下 所 述 。 

@ 增加 一 个 static 全 局 变量 ,用 来 存储 文件 指针 。 


static FILE * 全 =NULL; 
@ 重新 编写 屏幕 信息 输出 函数 ,并 命名 为 myDefaultPrintHandler。 


static int myDefaultPrintHandler( const char * S) 


图 在 mclDefaultErrorHandler 中 增加 输出 到 文件 的 语句 
fprintf( 介 ，%s ,5) 5 
图 在 main 函数 中 增加 对 文件 指针 的 初始 化 和 销毁 代码 
放 p== NULL) 
印 =fopen("output.txt"，a"); 
} 
mclIRunMain(run_main,argcvargv); 
信介 ! =NULL) 
{ 
fclose(fp); 


42 精通 Matlab 与 C/C 十 十 混合 程序 设计 (第 2 版 ) 








} 


改动 后 的 print_error_handle_test_main. c 代码 如 下 所 示 , 其 中 与 自动 生成 的 代码 不 同 或 
者 增加 之 处 用 灰色 背景 加 深 , 便 于 读者 查找 。 


7/ 
*# Matlab Compiler: 4.6《〈R2007a) 
*# Date; Wed jul 25 12:33:27 2007 
xx Arguments: "一 B" "macro_default'“ 一 m “一 W "main “一 站 “link:exe” 
# “print_error_handle_test.m” 
站 


#include 一 stdio.h> 
井 include "mclmcr. 
间 ifdef __cplusplus 
extern "C"” { 

井 endif 


extern mclComponentData __MCC_print_error_handle_test_component_datai 


#ifdef __cplusplus 
}》 
林 endif 


static HMCRINSTANCE _mcr_inst= NULL; 


大 ifdef _cplusplus 
extern "C"” 1《 


林 endif 


static int mclDefaultPrintHandler(const char * s) 
{ 
return mclWrite(1 / * stdout * /ssizeof(char) * strlen(s)) 4 


static FILE * 人 = NULL 
static int myDefauttPrintHandler(const char* S) 
{ 

fprintf( 作 ， %s” ,5) 

retumn 1; 


井 ifdef __cplusplus 
)》 /sw End extern "C” biock * / 
提 endif 


# ifdef _cplusplus 
extern "C" { 
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static int mclDefaultErrorHandler(const char * s)》 


int written=0; 
size t len=0+ 
len= strien(s); 
和 printf( 人 各， %s 5) 
written= mclWrite(2 / * stderr * /vs,sizeofCcharn) * len); 
flen>>0&&s[len-1]! = \n) 
written + = mclWrite(2 / * stderr* /，\n ,sizeofCchar)); 
retum written 


#ifdef __cplusplus 
)》/* End extern "C" block* / 
井 endif 


/1 w This symbol ks defined in shared libraries，Define it here 
* (to nothing) in case this snita shared library- 
/ 
间 ifndef LIB_print_error_handle_test_C_API 
# define LIB_print_error_handle_test_C_API / * No special import/export declaration / 
提 endif 


LIB_print_error_handle_test_C_API 

bool MW_CALL_CONYV print_error_handle_testinitializeWithHandlers( 
mclOutputHandlerFcn error_handler， 
mclOutputHandlerFcn print_handler 


首 (_mcr_inst ! = NULL) 
retumn truei 
诉 (1 mclmcrinitialize()) 
return falsey 
并 (1 mclinitializeComponentinstance(&_mcr_inst， 
&_MCC_print_error_handle_test_component_data， 
tmue,NoObjectType,ExeTarget， 
error_handler,print_handler) ) 
return false; 
return truet 


/* LIB_print_error_handie_test_C_-API1 
bool MW_CALL_CONV print_error_handle_testinitializeCvoid) 
人 { 


Teturn 
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print_error_handie_testinitializeWithHandlers( mcIDefaultErrorHandler, 
mclDefaultprintHandler) 

je/ 

ULIB_print_error_handle_test_C_API 

bool MW_CALL_CONYV print_error_handle_testinitialize(void) 

4 
return 
print_error_handle_testinitializeWithHandiers(mclDefaultErrorHandler， 

mmyDefauhtPrintHandler)， 


ULIB_print_error_handle_test_C_API 
void MW_CALL_CONV print_error_handle_testTerminate(void) 
并 (_mcr_inst ! = NULL) 
mclTerminatelnstance(&_mcr_insb) 


int rurn_main(int argc,const char* * argv) 
《 
int _retval; 
/1* Generate and populate the path_to_component.* / 
char path_to_component[(PATH_LMAX * 2) + 1]; 
separatePathName(argv[L0] ,path_to_component,(PATH_MAX* 2)+ 1 
__MCC_print_error_handle_test_component_data. path_to_component = path_to_component; 
论 (! print_error_handle_testlnitialize()) 
retum 一 1 
} 
_retval = mclMain(_mcr_inst,argc,argv," print_error_handle_test" ,0)， 
放 (_retval == 0 /* no error y /) mclWaitForFiguresToDie(NUULD) ; 
print_error_handle_testTerminate() 
mclTerminateApplication(); 
retumn _retval; 


int main(int argc,const char * * argv) 
{ 

诈 (! mclinitializeApplication( 
__MCC_print_error_handle_test_component_data runtime_options 
__MCC_printL_error_handle_test_component_data_runtime_option_count) ) 
return 0: 


这 全 ==NULL) 
t 
人 = fopen("output. bd，a); 
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} 
mclRunMainCrun_mainvargcvargv) + 


这 印 ! = NUUL) 
{ 
flose( 作 ); 


retum 0; 


2.7 Deployment Tool 


在 Matlab 命令 行 中 输入 deploytool 可 以 启动 Deployment Tool 工具 ,如 图 2 - 10 所 示 。 
Deployment Tool 实际 上 是 Matlab 编译 器 的 一 个 集成 GUI 界面 ,通过 Deployment Tool 可 避 
免 用 户 输入 繁琐 的 Matlab 编译 器 指令 ,从 而 提高 工作 效率 ,降低 使 用 Matlab 编译 器 的 难度 。 


Deployaent Tool 
Pile Rait Tocls Project Debug Desktop indow telp 
口 人 克 于 | 请 便 X 国 | 赐 草 | 9 


Welcome to the Deployment Tool 


To get started, do any of the following- 


二 Click the New Deployment Project icon 口 ntheDeploymd 
四 Click the Dpen Deployment Projecticon 芝 to open an exisl 


四 Ciick the Hetp icon 争 inthetoolbar 


Use the Deployment Tool to perform these tasks 























图 2- 10 Deployment Tool 对 话 框 
选择 File| New Deployment Project 菜单 项 ,弹出 如 图 2 - 11 所 示 的 对 话 框 ,从 图 中 可 以 看 出 
Deployment Tool 可 以 完成 Matlab 编译 器 Matlab Excel Builder 和 Dotnet Builder 等 的 功能 。 
Mathworks 在 Matlab 2007 的 文档 中 也 提 到 ,未 来 Deployment Tool 将 取代 Matlab 编译 器 .Mat- 
lab Excel Builder,Dotnet Builder 现 有 的 图 形 界面 工具 ,比如 dotnetool 在 未 来 版 本 会 被 Deploy- 
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ment Tool 所 取代 (实际 上 使 用 方法 类 似 ,只 是 将 操作 界面 集中 于 Deploment Tool) 。 


Wew Deployment Project 


jarDs puilaer fr Baea 
jarUa puilaer ser ET 


jurbs puilaer ter Jar* 局 
c Sherea Library 
ct Shared Library 


We [amtitedl pr 
Usstiam ceatt wd Settiatx\helleverldly DocwmentsVIATLAB | Browse 


国 Ca] [Ce 

















图 2-11 新 建 Deployment Tool 工程 
以 独立 可 执行 文件 为 例 , 说 明 Deployment Tool 的 使 用 方法 。 
@ 建立 一 个 Standalone Application 新 工程 。 
) 向 工程 中 添加 需要 编译 的 文件 ,如 图 2 一 12 所 示 。 





查看 : 局 ITLUB 革 


“Geseatr] 
Ca |] 


[Cn， 





图 2-12 为 工程 添加 文件 
回 选择 Tools| Build 菜单 项 编译 独立 可 执行 文件 工程 - 
图 选择 Tools| Package 菜单 项 将 生成 的 可 执行 文件 和 ct 文件 打包 为 (projetname).exe 
文件 ( 自 解压 可 执行 文件 ) 。 用 户 只 需要 在 目标 机 器 上 运行 4projetname). exe 即 可 将 新 生成 的 
独立 可 执行 文件 安装 到 目标 机 器 上 
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通过 Deployment Tool 建立 其 他 类 型 的 工程 如 C 动态 链接 库 `.C 十 十 动态 链接 库 及 
Dotnet Builder 等 的 步 又 与 独立 可 执行 文件 工程 类 似 ,读者 可 以 参考 上 述 步骤 进行 。 


2.8 程序 发 布 


如 果 要 发 布 Matlab 编译 器 生成 的 文件 ,无论 是 独立 可 执行 文件 还 是 动态 链接 库 文 件 ,用 
户 都 要 在 目标 机 上 安装 MCR。MCR 安装 通过 MCRInstaller. exe 来 实现 ,其 中 MCRInstall- 
er. exe 可 以 通过 buildmecr 命令 来 生成 。 默 认 情况 下 ,用户 可 以 在 (matlabrooty\toolbox\com- 
piler\deploy\win32 目录 下 找到 MCRInstaller. exe 文件 ,一 般 情 况 下 此 MCRInstaller, exe 文 
件 都 能 满足 用 户 的 需求 。 用 户 只 需要 在 目标 机 器 上 运行 MCRInstaller. exe 即 可 安装 MCR。 

除了 处 理 安装 MCR 之 外 ,用 户 还 需要 将 Matlab 编译 器 生成 的 目标 文件 复制 或 安装 到 目 
标 机 器 上 。 对 于 可 执行 文件 而 言 ,目标 文件 即 . ctf 文件 和 . exe 文件 ;对 于 动态 链接 库 文件 而 
言 , 目 标 文件 即 . etf 文件 、dll 文件 .lib 文件 和 . h 文件 。 如 果 使 用 Deployment Tool 的 话 , 通 
过 Tool|Package 菜单 项 可 以 将 生成 的 所 有 目标 文件 打包 为 一 个 自 解压 的 exe 文件 ,方便 用 户 
使 用 。 
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3.1 _ Matlab C/C 十 十 编译 器 的 设置 (mex) 


Matiab 可 以 将 C 程序 编译 为 MEX 文件 供 Matlab 直接 调用 (在 Windows 平台 下 ,MEX 
文件 实质 上 是 动态 链接 库 ,Matlab 6. 5 以 前 的 版 本 采用 dll 为 扩展 名 ;Maltab 7. 0 及 以 后 采用 
mexw32 或 mexw64 为 扩展 名 )。Matlab C/C 十 十 编译 器 的 设置 包括 mbuild -setup 和 
mex -setup 两 个 步骤 ,在 2. 3 节 中 介绍 了 mbuild -setup 的 配置 过 程 , 这 里 介绍 mex -setup 的 
配置 过 程 。 

在 Matlab 的 Command Window 下 输入 命令 mex -setup, 并 根据 Matlab 的 提示 选择 合适 
的 选项 ,如 下 所 示 ( 其 中 加 粗 部 分 为 用 户 输入 部 分 ) 。 

六 mex -setup 

Please choose your compiler for building extemal interface (MEX) files: 


Would you like mex to locate installed compilers [y]/n? y 

Select a compiler: 

[1 tcc- win32 C 2.4.1 in D:NMatlab 一 1\sys\lcc 

[2] Microsoft Visual C++ 6.0 in D:NProgram Files\Microsoft Visual Studio 
[o] None 

Compiler, 2 


Please verify your choices: 


Compiler， Microsoft Visual C++ 6.0 
Location; D:NProgram Files\Microsoft Visual Studio 


Are these correct? 〈[y]/m: yY 
Trying to update options file: C:\Documents and Settings\helloworld\Application Data\MathWorks\Matlab\ 
R2007aNmexopts. bat 


From template: D:NMatlab 一 1\bin\win32Nmexopts\msvc60opts.bat 
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3.2 Matlab 中 调用 C 程序 -MEX 文件 


3.2.1 MEX 文 件 介绍 


1. 具 的 

在 Matlab 开发 环境 中 调用 C/C 十 十 等 外 部 程序 需要 借助 编译 器 将 C/C 十 十 代码 编译 为 
MEX 文件 以 后 才能 实现 ,其 中 MEX 文件 包含 Matlab 解释 器 可 以 动态 装载 和 执行 动态 链接 
模块 。 在 Windows 平台 下 ,MEX 文件 以 动态 链接 库 ( 根 据 Matlab 版 本 的 不 同 ,扩展 名 为 . 
dl、* . mexw32 和 * . mexw64) 的 形式 存在 。 通 过 用 C 语言 编写 代码 ,然后 通过 Matlab 编译 
器 将 其 编译 为 MEX 文件 可 以 达到 下 面 一 些 目的 : 

(1) 加 快 程序 的 执行 速度 

采用 Matlab 开发 一 些 仿真 程序 时 ,如 果 其 中 有 的 模块 在 Matlab 中 的 执行 效率 很 低 ( 如 循 
环 ) ,可 以 采用 MEX 文件 的 方式 用 C 语言 来 实现 这 些 效率 比较 低 的 模块 ,从 而 提高 整个 程序 
的 执行 速度 。 

(2) 将 Matlab 作为 C 语言 开发 的 调试 环境 

在 Matlab 下 面 进行 数据 显示 是 非常 方便 的 ,因而 可 以 将 一 些 在 其 他 开发 环境 中 不 方便 数 
据 显 示 的 函数 用 C 语言 写 好 以 后 ,通过 MEX 文件 方式 在 Matlab 环境 下 进行 调试 。 尤 其 是 有 
大 量 数据 需要 处 理 时 ,用 Matlab 观察 其 中 间 结 果 是 非常 方便 的 。 

(3) 扩展 Matlab 的 功能 

Matlab 具有 强大 的 矩阵 运算 能 力 并 且 拥 有 丰富 的 工具 箱 ,但 是 在 有 些 方面 比较 薄弱 , 比 
如 硬件 设备 接口 操作 和 图 形 化 程序 设计 等 ,用 户 可 以 通过 MEX 文件 利用 C/C 十 十 语言 扩展 
Matlab 的 薄弱 环节 ,以 满足 自己 的 需求 。 

2. 注意 事项 

只 要 按照 Matlab 规定 的 书写 格式 编写 C/C 十 十 程序 ,那么 生成 的 MEX 文件 的 调用 方法 
与 一 般 的 Matlab 函数 完全 一 样 。 在 使 用 MEX 文件 时 ,需要 注意 下 面 几 点 : 

@ MEX 文件 的 执行 优先 级 比 一 般 的 Matiab 函数 要 高 ,因而 如 果 一 个 目录 下 有 Matlab 
函数 的 名 称 与 MEX 文件 相同 , 则 MEX 文件 会 被 调用 ,而 相应 的 Matlab 函数 由 于 执行 优先 级 
较 低 则 不 会 被 调用 。 

@@ 如 果 想 让 MEX 文件 像 一 般 的 Matlab 函数 那样 ,用 help 命令 可 以 看 到 这 个 函数 的 帮 
助 信息 ,可 以 采用 在 与 MEX 文件 相同 目录 下 放置 名 称 相同 的 M 文件 ,并 将 帮助 信息 放 在 M 
文件 中 的 办 法 来 解决 。 因 为 help 命令 只 能 显示 M 文件 的 帮助 信息 。 

3. 编译 示例 

为 了 便于 读者 理解 ,下 面 举例 说 明 MEX 文件 的 编译 过 程 。 

(1) 编写 C 语言 文件 

Vsx helloworld.c* / 

# 井 include "mex.h” 

void mexFunction(int nihs,mxArray * plhs[] ,int nrhs， 

const mArray * prhs[]) 
{ 
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mexpPrintfC" Hello World! \m"); 

} 

(2) 将 C 语言 文件 编译 为 MEX 文件 

在 Matlab 命令 行 下 ,执行 命令 mex filename. c 将 编写 的 C 语言 文件 编译 为 MEX 文件 。 
如 果 这 个 例子 的 C 语言 文件 名 为 helloworld. c, 则 用 mex helloworld. ec 将 其 编译 为 MEX 文 
件 。 编 译 成 功 后 ,可 以 在 与 helloworld. ce 文件 相同 的 目录 下 找到 helloworld, mexw32 文件 ,这 
便 是 编译 成 功 的 MEX 文件 。 

(3) 执行 可 执行 文件 

在 Matlab 命令 行 中 执行 helloworld ,就 会 在 屏幕 上 打印 出 “Hello World!” 字 样 。 


3.2.2 MEX 文件 结构 说 明 


用 C 语言 编写 MEX 文件 的 源 代码 时 ,必须 要 有 mexFunction 函数 。mexFunction 函数 
的 作用 与 一 般 C 语言 程序 设计 中 的 main 函数 的 功能 类 似 。 如 果 说 main 函数 提供 的 是 操作 
系统 与 C 语言 子 程序 之 间 的 接口 ,那么 mexFunction 函数 的 作用 则 是 Matlab 与 C 语言 子 程 
序 之 间 的 接口 。 另 外 ,用 C 语言 编写 MEX 文件 源 代码 时 ,需要 包含 "mex. h" 头 文件 , 即 

间 include "mex.h 

void mexFunction(int nlhs,rnxArray * plhs[] ,int nrhs,const mxArray * prhs[])， 
其 中 ,mexFunction 函数 的 输入 /输出 参数 的 含义 如 表 3 - 1 所 列 。 

表 3-1 mexFunction 输入 参数 

参数 名 会 义 参数 名 售 义 


int nlhs | 输出 参数 的 个 数 int nrhs 输入 参数 的 个 数 
mxArray w plhs 输出 参数 的 mxArray 数组 mxArrayw prhs “| 输入 参数 的 mxArray 数组 

















在 Matlab 中 ,所 有 的 数据 类 型 都 使 用 mxArray 结构 来 表示 。 通 过 接口 函数 mexFunction, 可 
以 与 Matlab 环境 进行 数据 交换 。Matlab 与 mexFunction 数据 交互 的 过 程 可 以 用 图 3 - 1 来 说 明 ， 
从 图 中 可 以 看 出 ,输入 参数 用 nrhs 和 prhs 两 个 量 来 描述 。prhs 是 一 个 mxArray 结构 的 指针 
prhsto] 一 Inl 
prhs[1] 一 In2 
prhsD2] 一 In3 










机 nclude "mex.h” 
void mexFunction 
《 
int nlhs, mxArmay *plhs[]， 
int nrhs, const mxArray *prhs[]); 


>>[Outl,Out2]myfunc(Inl,in2,.In3); 
/从 输入 参数 prhs 中 提取 相应 的 
/数据 进行 相应 的 处 理 


// 将 计算 结果 存 入 输出 参数 plhs 
促 








图 3-1 mexFunction 与 Matlab 的 数据 交换 示意 图 
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数组 ,而 nrhs 表示 这 个 数组 的 大 小 , 即 输入 参数 的 个 数 。 同 样 ,输出 参数 用 plhs 和 nlhs 来 描 
述 。 其 中 plhs 是 一 个 mxArray 结构 的 指针 数组 ,而 nlhs 则 表示 plhs 的 大 小 , 即 输出 参数 的 
个 数 。 


3.3 编译 MEX 文件 


在 Matlab 命令 行 中 通过 mex 命令 编译 MEX 文件 ,假设 要 编译 filename. c 文件 ,只 需要 
在 命令 行 中 输入 mex filename. c 命令 即 可 。mex 命令 有 很 多 选项 ,如 果 用 户 有 特殊 的 应 用 ， 
可 以 在 调用 mex 命令 时 设置 这 些 选项 ,比如 采用 -largeArrayDims 选项 意味 着 MEX 文件 中 可 
以 使 用 长 度 大 于 2^ 31 一 1 的 阵列 ,其 他 更 多 的 mex 命令 选项 用 户 可 以 查看 Matiab 帮助 (一 般 
情况 采用 默认 选项 即 可 ) 。 


3.4 Matlab 中 mxArray 类 型 的 操作 


从 图 3 - 1 中 可 以 看 出 ,用 C 语言 编写 MEX 文件 的 一 个 关键 之 处 在 于 mexFunction 函数 
中 关于 Matlab 与 C 代码 模块 的 数据 交互 问题 。Matlab 所 有 的 数据 类 型 都 可 以 用 mxArray 
来 描述 ,并 且 mexFunction 函数 的 所 有 输入 输出 参数 都 是 采用 mxArray 形式 来 实现 的 。 那 么 
如 何 将 mxArray 类 型 转换 为 C 语言 可 以 直接 使 用 的 基本 数据 类 型 (如 double'int 等 ), 或 者 如 
何 将 C 语言 的 基本 数据 类 型 转换 为 mxArray 类 型 ? 这 个 问题 Matlab 通过 提供 一 系列 操作 
mxArray 的 API 函数 得 以 解决 。Matlab 与 C 混合 编程 时 需要 调用 Matlab 提供 的 一 些 API 
函数 ,其 中 以 mx 开头 的 Matlab API 函数 主要 是 提供 对 mxArray 进行 操作 的 函数 ,而 以 mex 
开头 的 Matlab API 函数 则 提供 Matlab 环境 后 台 操 作 的 函数 。 其 中 以 mex 开头 的 Matlab 
API 函数 只 能 在 MEX 文件 中 应 用 。 


3.5 Matlab 与 C 语 


串 


混合 编程 常用 的 数据 类 型 


3.5.1 size_t 类 型 


因为 下 面 讨论 中 要 用 到 size_t 类 型 ,因而 首先 说 明 一 下 size_t 类型。 不 同 的 机 器 和 编译 
器 ,size_t 的 定义 是 不 同 的 ,比如 下 面 这 几 种 定义 都 有 可 能 出 现 : 


typedef unsigned int size_ti 
typedef int size_tt 

typedef short size_t 

typedef unsigned short size_t 


当然 也 可 能 出 现 其 他 定义 。 总 的 来 说 ,size_t 主要 用 来 作为 sizeof 函数 的 返回 类 型 ,或 者 作为 
描述 变量 或 者 内 存 长 度 的 一 种 类 型 。 之 所 以 采用 size_t 而 不 是 直接 采用 int,long,short 或 者 
其 他 整 型 ,是 为 了 程序 代码 的 通用 性 ,假如 程序 执行 的 平台 变 了 ,那么 只 要 改变 size-t 的 定义 
即 可 。 
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3.5.2 Matlab C 语言 接口 数据 类 型 
Matlab C 语言 接口 中 有 几 个 特殊 的 数据 类 型 , 即 : 


mwlndex,mwSize,mxChar,mxLogical,mxClassID,mxComplexity 
下 面 分 别 进行 介绍 。 
1.、mwIndex 和 mwSize 


mwIndex 用 以 表示 阵列 索引 ; mwSize 用 以 表示 大 小 ,比如 阵列 维 数 或 者 阵列 长 度 。 
mwIndex 和 mwSize 的 定义 包含 在 externNinclude\tmwtypes. h 文件 中 ,定义 如 下 : 

非 ifidef MX_COMPAT_32 

typedef int mwSize 

typedef int mwlndex; 

typedef int mwSignedindex; 

间 else 
typedef size_t mwsSizer 
typedef size 上 mwindexs 
typedef ptrdiff_t mwsSignedindexs 
提 endif 

从 这 个 定义 可 以 看 出 , 当 MX_COMPAT_32 宏 定义 存在 时 ,Matlab 对 mwIndex 和 mw- 
Size 变量 的 定义 实际 上 是 int 类 型 ; 当 MX_COMPAT_32 宏 定义 不 存在 时 ,Matlab 对 mwlnd- 
ex 和 mwSize 变量 的 定义 实际 上 是 size_t 类 型 。 

Matlab 之 所 以 推出 这 两 个 变量 而 不 再 沿用 原来 表示 阵列 索引 和 阵列 长 度 的 int 类 型 
(Matlab 6.5 以 前 没有 mwIndex 和 mwSize 类 型 ), 是 为 了 适应 64 位 处 理 器 和 处 理 更 大 规模 
阵列 的 需要 (阵列 长 度 大 于 2^ 31 一 1)。 编 译 Matlab MEX 文件 的 MEX 命令 增加 了 一 个 
-largeArrayDims 选 项 (Matlab 也 推荐 使 用 该 选项 ) ,如 果 编 译 MEX 文件 时 不 带 此 选项 ,此 时 
mwSize 和 mwIndex 定义 为 int; 如 果 编 译 MEX 文件 时 带 此 选项 ,此 时 mwSize 和 mwIndex 定 
义 为 size_t。 从 Matlab 2006b 开始 ,Matlab 对 稀 朴 矩阵 的 存储 方式 与 以 前 的 版 本 相 比 发 生 了 
变化 ,只 有 使 用 -largeArrayDims 选项 ,才能 正确 使 用 操作 稀 朴 矩阵 的 mx- AP1 函数 ,所 以 用 
户 编译 MEX 文件 时 最 好 使 用 -largeArrayDims 选项 (Matlab 准备 在 Matlab 2007 之 后 的 版 本 
中 将 -largeArrayDims 作为 编译 MEX 文件 的 默认 选项 ) 。 

2. mxChar 和 mxLogical 

mxChar 和 mxLogical 是 Matlab 自 定义 的 两 个 数据 类 型 ,在 extern\include\matrix h 中 
可 以 找到 它们 的 定义 , 即 

# 放 defined(_APPLE_) && defined(_ppc_) 

typedef unsigned char mxLogical; 

提 else 

typedef bool mxLogicaly 

井 endif 

typedef char16_t mxChars 
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可 以 看 出 ,在 非 苹果 机 和 非 PowerPC 系 的 处 理 器 中 ,mxLogical 实际 上 就 是 bool 类 型 ;而 
mxChar 类 型 实际 上 就 是 16 位 字符 类 型 (Matlab 中 所 有 的 字符 都 采用 16 位 双 字 节 存 储 ) 。 
3.mxCiass1D 


mxClassID 用 来 描述 Matlab 的 阵列 类 型 ,所 有 的 Matlab 阵列 类 型 都 有 一 个 对 应 的 枚 举 
量 ID, 比 如 元 组 阵列 的 ID 为 mxCELL_CLASS。 因 而 ,使 用 mxClassID 类 型 可 以 很 方便 地 判 
断 某 一 Matlab 阵列 (用 mxArray 表示 ) 属 于 哪 一 种 类 型 。 在 文件 extern\include\matrix. h 
中 ,对 mxClassID 类 型 的 定义 如 下 所 示 。 


typedef enum { 
mxUNKNOWNLCLASS=0， 
mxCELL_CLASS， 
mxSTRUCT_CLASS， 
mxLOGICAL_CLASS， 
mxCHAR_CLASS， 
mxVOID_CLASS， 
mxDOUBLE_CLASS， 
mxSINCLE_CLASS， 
mxINT8_CLASS， 
mxUINT8_CLASS， 
mxINT16_CLASS， 
mxUINT16_CLASS， 
mxINT32_CLASS， 
mxUINT32_CLASS， 
mxINT64_CLASS， 
mxUINT64_CLASS， 
mxFUNCTIONLCLASS， 

mxOPAQUE_CLASS， 

mxOBIECT_CLASS 


} mxClasslD; 


4.，mxComplexity 


mxComplexity 类 型 用 以 区 分 浮 点 数值 阵列 是 实数 还 是 复数 , 它 也 是 一 个 枚 举 类 型 ,在 文 
件 externNinclude\matrix. h 中 ,对 其 的 定义 如 下 所 示 。 


typedef enum 1 
mxREAL， 
mxCOMPLEX 

} mxComplexity 


假设 用 户 需 要 创建 一 个 5 行 3 列 的 复数 双 精 度数 值 阵 列 , 则 用 户 需要 传递 mxCOMPLEX 
变量 给 mxCreateDoubleMatrix 函数 ,如 下 所 示 。 


mArray * pa 
pa= mxCreateDoubleMatrix(5,3,mxCOMPLEX); 
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3.6 操作 Matlab 阵列 mxArray 的 mx 函数 


1， int mxAddField( mxArray * array_ptr,const char * field_name) ; 
函数 功能 : 

为 结构 体 增 加 一 个 域 。 
参数 说 明 : 

mxArray* array_ptr “指向 结构 体 的 mxArray 指针 。 

const char*x field_name ”要 添加 的 域 的 名 称 。 
返回 值 : 

如 果 函 数 调用 成 功 则 返回 新 添加 域 的 计数 ,否则 返回 一 1。 

2，char * mxArrayToString( const mxArray * array_ptr) ; 


函数 功能 : 

将 字符 阵列 转换 为 C 字符 串 。 
参数 说 明 : 

const mxArray * array_ptr // 待 转换 字符 阵列 。 
返回 值 , 

返回 转换 后 的 字符 串 , 如 果 函 数 调用 失败 则 返回 NULL 空 指针 ,此 函数 用 以 转换 双 字 节 
的 字符 串 。 

3. mwIndex mxCalcSingleSubscript( const mxArray * array_ptr,mwSize 

nsubs,mwIndex * subs) ; 
函数 功能 : 

计算 阵列 元 素 (subs(0) ,subs(1),…,subs(nsubs 一 1)) 相 对 于 阵列 元 素 (0,0,0) 的 线性 偏 移 量 。 
参数 说 明 : 

const mxArray * array_ptr 输入 Matlab 阵列 的 mxArray 指针 。 

mwSize nsubs ”表示 一 维 数组 subs 的 元 素 个 数 。 

mwIndex * subs ”表示 需要 求解 线性 偏 移 量 的 阵列 元 素 的 索引 。 
返回 值 ， 

如 果 函 数 调用 成 功 则 返回 一 个 (0,N 一 1) 之 间 的 数 ,其 中 N 为 输入 mxArray 阵列 的 元 素 
个 数 ,否则 返回 一 1。 
附加 说 明 ， 

所 有 Matlab 阵列 ,不论 其 维 数 大 小 其 在 内 存 中 都 是 按照 一 维 的 方式 存储 的 。 与 C 语言 
数组 的 存储 方式 不 同 的 是 ,Matlab 阵列 在 内 存 中 是 按 列 的 方式 存储 的 。 如 表 3 - 2 所 列 的 二 
维 Matlab 字符 阵列 ,其 在 内 存 中 的 存储 方式 和 其 线性 索引 如 表 3 -3 所 列 。 

表 3-2 Matlab 2Xs 字 符 阵 列 
B | c 


和 D E 
Fljsclalily 
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表 3-3 Matlab 阵列 的 存储 方式 及 线性 索引 示意 图 


字 和 从 | A[|r|aljclclalp|1lr 
未 引 。|1|:|s* |4 ls|ls|l7 |1s|l， 


对 于 多 维 阵列 ,其 原理 与 二 维 阵列 类 似 , 其 在 内 存 中 
的 存储 方式 均 是 一 维 线性 的 。 只 不 过 多 维 阵 列 相对 二 维 - 当 攻 天 
阵列 来 说 理解 上 可 能 比较 困难 。 以 三 维 阵 列 为 例 ( 实 际 
很 少 用 到 三 维 以 上 的 阵列 ) ,其 字符 阵列 如 图 3 - 2 所 示 。 
三 维 Matlab 阵列 在 内 存 中 的 线性 存储 方式 如 表 3 -4 
所 列 。 

mxCaltcSingleSubscript 函数 就 是 用 来 计算 指定 阵列 
元 素 相 对 于 第 一 个 阵列 元 素 的 线性 偏 移 值 ,例如 对 于 
表 3 -4 所 列 的 三 维 阵列 , 试 求 Matlab 阵列 元 素 (1,2,2) ”图 3-2 Matlab 2X2X3 字 符 阵列 
的 线性 偏 移 值 , 则 : 

int nsubs=34 

int subs[3]; 

int nOffseti 

subs[0]= 1 

subs[=25 

subs[2]= 2 

// 则 输出 nOffSet 为 5 

nOffset = mxCalcSingleSubscript(arrayPointerynsubs,subs)# 


另外 需要 注意 的 是 : Matlab 阵列 的 索引 都 是 从 1 开始 的 ,而 C 语言 数组 的 索引 都 是 从 0 
开始 的 ,因此 ,Matlab 阵列 元 素 (1,2,2) 相 当 于 C 语言 数组 的 索引 (0,1,1)。 
表 3-4 Matlab 阵列 的 存储 方式 及 线性 索引 示意 
字符 | A|] C| 8 pD[sE[r[c[a[I[I[k|r 
索 引 | 。 1 | 3 |s|sl sl ln 11 
4. void * mxCalloc( size_t n,size_t size) ; 
函数 功能 : 
用 Matlab 内 存 管理 器 动态 分 配 内 存 。 
参数 说 明 : 
size_tn “动态 分 配 的 内 存单 元 的 个 数 。 
size_t size ”动态 分 配 的 内 存单 元 的 大 小 。 
返回 值 : 
如 果 内 存 分 配 成 功 则 返回 分 配 的 内 存 的 首 地 址 的 指针 ,如 果 失 败 则 返回 NULL; 但 是 如 


果 在 MEX 文件 的 执行 过 程 中 如 果 内 存 分 配 失败 的 话 , 则 中 止 MEX 文件 的 执行 。 
附加 说 明 : 
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在 动态 分 配 Matiab 应 用 相关 的 内 存 时 (如 mxArray) ,必须 使 用 mxCalloc 或 其 他 Matlab 
内 存 分 配 函 数 动 态 动态 分 配 内 存 。 在 MEX 文件 中 ,Matlab 的 内 存 管理 器 会 自动 维护 所 有 由 
mxCalloc 分 配 的 内 存 , 并 在 mex 程序 返回 Matlab 命令 行 时 自动 释放 由 mxCalloc 分 配 的 
内 存 。 

在 应 用 Matlab API 的 独立 可 执行 的 程序 中 ,mxCalloc 在 默认 的 情况 下 调用 标准 C 的 
calloc 函数 ,用 户 也 可 以 用 mxSetAllocFcns 注册 自己 的 内 存 分 配 函数 。 

5.mxArray * mxCreateCellArray(mwSize ndim,const mwSize * dims) ; 
函数 功能 : 

创建 N 维 空 的 Matlab 元 组 阵列 。 
参数 说 明 ， 

mwSize ndim ”一 维 数组 dims 的 元 素 个 数 。 

mwSize * dims ”表示 Cell 阵列 各 维 大 小 的 一 维 数组 ,其 dims[0] 代 表 Cell 阵列 的 第 1 维 
的 大 小 ( 行 数 )。 假 如 要 创建 3X4X5 的 Cell 阵列 , 则 : 

mwsSize ndim= 3， 

mwSize dims[3]= 43,4,5)4 

mxArray * cell3454 

cell345 = mxCreateCellArray(ndim,dims)* 


返回 值 : 

如 果 函 数 调用 成 功 , 返 回 创建 的 Cell 阵列 的 mxArray 的 指针 ;如 果 函 数 调用 失败 ,返回 
NULL。 

6.。mxArray * mxCreateCellMatrix( mwSize m,mwSize n) ; 
函数 功能 ， 

创建 m 行 n 列 Cell 矩阵 。 
参数 说 明 : 

mwSize m 待 创建 Cell 矩阵 的 行 数 。 

mwSize n 待 创 建 Cell 矩阵 的 列 数 。 
返回 值 : 

返回 mXn Cell 阵列 的 mxArray 指针 。 

7。mxArray * mxCreateCharArray(mwSize ndim,const mwSize * dims) ; 
函数 功能 : 

创建 字符 阵列 。 
参数 说 明 : 

mwSize ndim ” 待 创建 字符 阵列 的 维 数 ,ndim 必须 大 于 零 。 由 于 Matlab 中 标量 用 1X1 
的 阵列 nidm 应 该 大 于 等 于 2。 

mwSize * dims ” 待 创建 字符 阵列 的 各 维 大 小 , 整 型 数组 dims 的 维 数 应 该 大 于 等 于 2。 
返回 值 : 

返回 创建 的 字符 阵列 ,如 果 失 败 则 返回 NULL。 
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8，mxArray * mxCreateCharMatrixFromStrings( mwSize mconst char * * str); 
函数 功能 : 

创建 二 维 字符 阵列 ,其 初 值 为 输入 的 字符 串 。 
参数 说 明 : 

mwSize m ”输入 的 C 语言 字符 串 的 个 数 , 即 创建 的 字符 矩阵 的 行 数 。 

const charx* * str 输入 的 C 语言 字符 串 指针 数组 。 
返回 值 : 

如 果 函 数 调用 成 功 , 则 返回 创建 的 二 维 字符 阵 列 的 mxArray 指针 ;否则 返回 NULL。 
附加 说 明 : 

用 这 种 方式 创建 的 二 维 数组 ,其 行 数 由 mm 指定 ,其 列 数 由 输入 的 m 个 字符 串 的 最 大 长 度 
决定 。 另 外 需要 说 明 的 是 ,在 Matlab 字符 阵列 中 ,字符 类 型 为 mxChar, 而 不 是 char。mxChar 
的 定义 如 下 : 

typedef char16_t mxChar; //16 位 字符 ,而 不 是 C 语言 中 常用 的 8 位 字符 

通过 下 面 例子 ,读者 可 以 大 致 了 解 mxCreateCharMatrixFromStrings 函数 的 使 用 方法 。 

7 w mxCreateCharMatrixFromsString.c 文件 内 容 * / 

厅 include "mex.h” 

柯 include “matrix.h” 

void mexFunction(int nlhs,mxArray * plhs[] ,int nrhs,const mxArray * prhs[]) 

{ 






char st[]= "Bei jing"， 
char s2[]= "Shang Haf ; 
char s3[] = "Tian jin" 
char s%4[] = "Chong Qing" ; 


char * sL4] = (5S1,52,53,s41 
mxArray * charArrayy 
1/ 
创建 一 个 4 x 10 字符 从 阵 ,其 内 容 如 下 : 
Beijing 
Shang Hai 
Tian jin 
Ghong Qing 
二 / 
charArray = mxCreateCharMatrixFromstrings(4,s); 
inlhs== D 
4 
plhs[O] = charArray; 
} 
else 
mexPrintf( "输出 阵列 的 个 数 错误 1 \m )5 
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mmxDestroyArray(charArray); 
} 
}》 


9.mxArray x* mxCreateDoubleMatrix(mwSize m,mwSize n， 
mxComplexity ComplexFlag) ; 
函数 功能 : 
创建 双 精 度 矩 阵 (mXnym>=1,n> 一 1)。 
参数 说 明 : 
mwSize m ”数值 矩阵 的 行 数 。 
mwSize n ”数值 矩阵 的 列 数 。 
mxComplexity ComplexFlag ”数值 阵列 的 类 型 ,其 中 mxComplexity 的 定义 如 下 : 


typedef enum mxComplexity {mxREAL = 0,mxCOMPLEX} 


mxComplexity 同样 是 一 个 枚 举 类 型 ,其 中 mxREAL 表示 当前 mxArray 是 一 个 实数 数组 , 没 
有 虚 部 。mxCOMPLEX 表示 当前 mxArray 是 一 个 复数 数组 ,存在 虚 部 , 即 GetPi 返回 不 为 
空 。 
返回 值 ， 

返回 生成 的 二 维 双 精 度数 值 阵 列 的 mxArray 指针 。 

10，mxArray * mxCreateDoubleScalar( double value) ; 
函数 功能 ， 

创建 双 精度 标量 (1X 1) ,与 mxCreateScalarDouble 函数 的 功能 相同 。mxCreateDoubleS- 
calar 函数 的 功能 于 下 面 的 语句 相同 ,只 不 过 书写 起 来 比较 简洁 。 


pa = mxCreateDoubleMatrix(1, 1,mREAL) ， 
wy mxCetpr(pa) = valuei 


参数 说 明 : 

double value ”表示 生成 的 双 精 度 标量 的 值 。 
返回 值 , 

返回 生成 的 1X 1 双 精度 数值 阵列 。 

11，mxArray * mxCreateLogicalArray( mwSize ndim,const mwSize x dims) ; 
函数 功能 : 

创建 Matlab 逻辑 阵列 。 
参数 说 明 : 

mwSize ndim ” 待 创 建 膛 辑 阵 列 的 维 数 ,ndim 必须 大 于 零 。 由 于 Matlab 中 标量 用 1X1 
的 阵列 ,因而 nidm 应 该 大 于 等 于 2。 

mwSize x dims 待 创建 膛 辑 阵列 的 各 维 大 小 , 整 型 数组 dims 的 维 数 应 该 大 于 等 于 2。 
返回 值 : 

返回 生成 的 Matlab 逻辑 阵列 的 mxArray 指针 。 
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12. mxArray * mxCreateLogicalMatrix(mwSize m,mwSize n) ; 
函数 功能 : 
创建 Matlab 运 辑 和 矩阵 。 与 mxCreateLogicalArray 不 同 ,mxCreateLogicalMatrix 只 创建 
二 维 的 Matlab 逻辑 阵列 。 
参数 说 明 
mwSize m” 待 创建 的 二 维 的 Matlab 逻辑 阵列 的 行 数 。 
mwSize n 待 创 建 的 二 维 的 Matlab 逻辑 阵列 的 列 数 。 
返回 值 ， 
创建 的 二 维 Matlab 逻辑 阵列 的 mxArray 指针 。 
13. mxArray * mxCreateLogicalScalar( mxLogical value) ; 
函数 功能 ， 
创建 的 Matlab 逻辑 型 标量 。 
参数 说 明 : 
mxLogical value ”创建 的 Matlab 逻辑 型 标量 的 初 值 ,其 中 mxLogical 的 定义 如 下 ， 


typedef bool rmtogical 


返回 值 : 

创建 的 Matlab 逻辑 型 标量 阵列 的 mxArray 指针 。 
附加 说 明 ， 

mxCreateLogicalScalar 函数 的 功能 和 下 面 语句 的 功能 是 相同 的 ,只 不 过 mxCreateLogi- 
calScalar 函数 书写 起 来 比较 简洁 。 


mxArray w pa= rnxCreateLogicalMatrix(1,1)4 
# mxGetLogicals(pa) = value 


14.mxArray * mxCreateNumericArray(mwSize ndim,const mwSize 
x dims,mxClassID class,mxComplexity,ComplexFlag) ; 

函数 功能 ， 

创建 数值 阵列 。 
参数 说 明 : 

mwSize ndim ” 待 创建 数值 阵列 的 维 数 。 

const mwSize x dims ” 待 创建 数值 阵列 各 维 的 大 小 ,其 中 dims 是 一 个 一 维 数组 ,数组 的 
大 小 为 ndim 。 

mxClassID class ”表示 创建 的 数值 阵列 的 类 型 ,mxClassID 是 一 个 枚 举 类 型 ,用 以 表示 
Matlab 开发 环境 中 当前 存在 的 所 有 Matlab 数组 类 型 。 通 过 函数 mxGetClassID 可 以 得 到 
mxArray 的 数组 类 型 。 

mxComplexity ComplexFlag ”表示 数值 阵列 的 是 实数 还 是 复数 ,具体 说 明 见 3. 5.2 节 。 
返回 值 : 

创建 的 Matlab 数值 阵列 的 mxArray 指针 。 
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1S$，mxArray * mxCreateNumericMatrix(mwSize m,mwSize n， 
mxClassID class,mxComplexity ComplexFlag) ; 

函数 功能 : 

创建 数值 矩阵 。 
参数 说 明 ， 

mwSize m 数值 矩阵 的 行 数 。 

mwSizen ”数值 矩阵 的 列 数 。 

mxClassID class ”数值 矩阵 的 类 型 , 见 mxCreateNumericArray 关于 mxClassID 的 说 明 ， 

mxComplexity ComplexFlag 表示 数值 阵列 的 是 实数 还 是 复数 ,具体 说 明 见 3. 5.2 节 。 
返回 值 : 

创建 的 Matlab 数值 矩阵 的 mxArray 指针 。 

16. mxArray * mxCreateScalarDouble( double value) ; 


函数 功能 : 
创建 数值 标量 。 
参数 说 明 ， 
double value ”创建 的 数值 标量 的 初始 值 。 
返回 值 ; 
创建 的 Matlab 双 精度 标量 阵列 的 mxArray 指针 。、 
17. mxArray * mxCreateSparse( mwSize m,mwSize n,mwSize nzmax， 
mxComplexity ComplexFlag) ; 
函数 功能 ， 
创建 稀疏 矩阵 。 
参数 说 明 : 
mwSize m 稀疏 矩阵 的 行 数 。 
mwSize n ” 稀 朴 矩阵 的 列 数 。 
mwSize nzmax “最 大 的 非 零 元 素 个 数 , 其 中 nzmax 要 不 大 于 m*n 的 值 。 
mxComplexity complexFlag 待 创建 的 稀疏 矩阵 的 实 型 或 复 型 标志 ,其 中 complexFlag 
如 果 为 mxREAL 表示 创建 的 稀疏 矩阵 为 实 型 ;如 果 为 mxCOMPLEX, 则 表示 创建 的 稀疏 矩 
阵 为 复 型 。 
返回 值 : 
创建 Matlab 稀 朴 矩阵 的 mxArray 指针 。 
18. mxArray x* mxCreateSparseLogicalMatrix( mwSize m,mwSize n) ; 
函数 功能 : 
创建 远 辑 型 的 稀 朴 矩阵 。 
参数 说 明 
mwSize m ”逻辑 型 稀疏 矩阵 的 行 数 。 
mwSize n ”逻辑 型 稀 玻 矩阵 的 列 数 。 
返回 值 ; 
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创建 Matlab 逻辑 型 稀疏 矩阵 的 mxArray 指针 。 
附加 说 明 : 

由 于 轩 辑 型 变量 只 有 true(1) 和 flase(0) 两 种 情况 ,因而 对 于 false(0) 占 大 部 分 比例 并 且 
很 大 的 逻辑 型 矩阵 ,可 以 通过 使 用 稀疏 矩阵 的 办 法 达到 降低 占用 内 存 空间 的 目的 。 

19. mxArray * mxCreateString( const char x* str) ; 


函数 功能 ， 
创建 Matlab 字符 型 阵列 ,并 将 根据 输入 的 字符 串 为 其 赋 初 值 。 
参数 说 明 ， 
const charx str 用 做 初始 化 待 创建 Matlab 字符 阵列 的 字符 串 。 
返回 值 : 
创建 的 Matlab 字符 类 型 阵列 的 mxArray 指针 。 
20，mxArray * mxCreateStructArray(mwSize ndim,const mwSize 
x dims ,int nfields,const char * * field_names); 
函数 功能 : 
创建 Matlab 结构 体 阵 列 。 
参数 说 明 
mwSize ndim 。 待 创 建 结构 体 阵 列 的 维 数 ,ndim 必须 大 于 零 。 由 于 Matiab 中 标量 用 1 X 
1 的 阵列 ,因而 nidm 应 该 大 于 等 于 2。 
mwSizex dims 待 创建 结构 体 阵列 的 各 维 大 小 , 整 型 数组 dims 的 维 数 应 该 大 于 等 于 2。 
int nfileds ”结构 体 阵 列 的 域 的 个 数 。 
charx * field_names 结构 体 阵 列 的 域名 字符 串 数 组 。 
返回 值 ; 
创建 的 Matlab 结构 体 阵 列 mxArray 指针 。 
21，mxArray * mxCreateStructMatrix(mwSize m,mwSize n,int nfields， 
const char * * field_names) ; 
函数 功能 ， 
创建 Matlab 结构 体 矩 阵 。 
参数 说 明 
mwSize m ”结构 体 矩 阵 的 行 数 。 
mwSize n ”结构 体 矩 阵 的 列 数 。 
int nfields ”结构 体 阵 列 的 域 的 个 数 。 
charx * field_name 结构 体 阵 列 的 域名 字符 串 数组 。 
返回 值 : 
创建 的 Matlab 结构 体 阵 列 的 mxArray 指针 。 
22。 void mxDestroyArray(mxArray * array_ptr) ; 
函数 功能 
释放 由 mxCreate * * * 函数 创建 的 mxArray 使 用 的 内 存 。 
参数 说 明 : 
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mxArray * array_ptr 需要 释放 的 mxArray 指针 。 
23. mxArray * mxDuplicateArray(const mxArray * in) ; 


函数 功能 : 

复制 任何 一 个 mxArray 变量 。 
参数 说 明 : 

mxArray x in 需要 复制 的 mxArray 的 指针 。 
返回 值 : 


复制 的 Matlab 阵列 mxArray 指针 。 

24，void mxFree( void * ptr) ; 
函数 功能 ， 

释放 由 mxCalloc 分 配 的 内 存 。 
参数 说 明 : 

voidx ptr 指向 由 mxCalloc 分 配 的 内 存 的 首 地 址 的 指针 。 

25， mxArray * mxGetCeill( const mxArray * array_ptr,mwIndex index); 
函数 功能 : 

得 到 Matlab Cell 阵列 中 索引 为 index Cell 元 素 里 保存 的 Matlab 阵列 。 
参数 说 明 ， 

const mxArray * array_ptr Matlab Cell 阵列 的 mxArray 指针 。 

mwIndex index 从 Cell 阵列 第 一 个 元 素 到 需要 得 到 其 内 容 的 Cell 阵列 元 素 的 线性 偏 移 
量 , 可 以 由 mxCalcSingleSubscript 函数 得 到 。 
返回 值 

索引 为 index 的 Cell 元 素 的 mxArray 指针 。 

26，mxChar * mxGetChars( const mxArray * array_ptr) ; 
函数 功能 : 

得 到 Matlab 字符 类 型 阵列 字符 数据 的 指针 。 

27，mxClassID mxGetClassID (const mxArray * array_ptr) ; 
函数 功能 : 

得 到 以 mxClassID 枚 举 类 型 表示 的 Matlab 阵列 类 型 。 

28，const char * mxGetClassName( const mxArray * array_ptr) ; 
函数 功能 : 

得 到 以 字符 串 表 示 的 Matiab 阵列 类 型 。 

29， void * mxGetData{( const mxArray * array_ptr); 
函数 功能 : 

得 到 非 double 型 数值 阵列 的 数据 指针 ,double 型 数值 阵列 的 数据 指针 用 mxGetPr 和 
mxGetPi 得 到 。 

30. const mwSize * mxGetDimensions( const mxArray * array_ptr) ; 
函数 功能 : 
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和 mxGetNumberOfDimensions 联合 使 用 ,用 来 确定 输入 Matlab 阵列 的 维 数 以 及 各 维 的 
大 小 。 
返回 值 : 

函数 返回 一 个 一 维 整 型 数组 ,数组 的 大 小 由 mxGetNumberOfDimensions 来 确定 。 

31. size_t mxGetElementSize( const mxArray * array_ptr) ; 
函数 功能 : 

得 到 Matlab 阵列 的 单个 元 素 需要 的 存储 空间 (bytes)。 例 如 ， 


mArray wa 
Size_t aESizei 
= mmxCreateNumericArray(NDIMS,dims,mxUINT16_CLASS,rREAL)， 


aESize = mxGetElementSize(a); 


32. double mxGetEps(void) ; 
函数 功能 : 
返回 Matlab 所 能 表示 的 最 小 浮 点 数 , 即 对 于 如 果 两 个 变量 s 和 b, 如 果 abs(a 一 b) 之 eps， 
则 可 以 认为 a 和 b 是 不 相等 的 ;否则 则 认为 a 等 于 b。 
33. mxArray * mxGetField( const mxArray * array_ptr,mwIndex index， 
const char x field_name) ; 
函数 功能 ， 
给 定 阵列 元 素 的 线性 索引 和 域名 ,得 到 相应 域 值 。 
参数 说 明 
const mxArray x* array_ptr Matlab 结构 体 阵 列 。 
mwIndex index Matlab 结构 体 阵 列 索引 。 
charx fileld_name 结构 体 域名 。 
返回 值 : 
返回 相应 的 域 值 。 
34. mxArray * mxGetFieldByNumber(const mxArray * array_ptr， 
mwIndex index,int field_number) ; 
函数 功能 : 
给 定 阵列 元 素 的 线性 索引 和 域 号 ,得 到 相应 的 域 值 。 
参数 说 明 : 
const mxArray* array_ptr Matlab 结构 体 阵 列 。 
mwJlndex index “Matlab 结构 体 阵 列 索引 。 
int field_number 结构 体 域 号 ,结构 体 第 -一 个 域 的 域 号 为 0, 第 二 个 域 的 域 号 为 1, 以 此 类 
推 。 域 号 的 值 不 能 超过 N 一 1,N 为 结构 体 域 的 最 大 个 数 。 
返回 值 : 
返回 相应 的 域 值 。 


64 精通 Matlab 与 C/C 十 十 混合 程序 设计 (第 2 版 7 








35. const char * mxGetFieldNameByNumber( const mxArray 
x array_ptr,int field_number) ; 
函数 功能 : 
根据 结构 体 域 的 域 号 得 到 相应 的 域名 。 
参数 说 明 : 
const mxArray * array_ptr Matlab 结构 体 阵 列 。 
int field_number Matlab 结构 体 域 号 。 
返回 值 : 
域 号 为 field_number 对 应 的 Matlab 域名 。 
36. int mxGetFieldNumber( const mxArray * array_ptr,const char 
x field_name) ; 
函数 功能 : 
根据 结构 体 域 的 域名 得 到 相应 的 域 号 。 
参数 说 明 : 
const mxArray x array_ptr Matlab 结构 体 阵列 。 
char x field_name Matlab 结构 体 阵列 域名 。 
返回 值 : 
返回 结构 体 域 域 号 。 
37. void * mxGetImagData( const mxArray * array_ptr) ; 
函数 功能 
得 到 Matlab 非 双 精 度 型 数值 阵列 的 虚 部 数据 指针 。 
参数 说 明 : 
const mxArray x array_ptr Matlab 数值 阵列 的 mxArray 指针 。 
38. double mxGetInf( void) ; 
函数 功能 : 
得 到 Matlab 的 正 无 穷 大 ,有 些 操作 本 身 就 会 返回 无 穷 大 ,例如 5/0 或 者 exp(1000) 等 。 
39. mwIndex * mxGetlr( const mxArray * array _ptr) ; 
函数 功能 : 
得 到 Matlab 稀 朴 矩阵 的 ir 数据 指针 。 
参数 说 明 : 
const mxArray x array_ptr Matlab 稀 朴 矩阵 mxArray 指针 。 
返回 值 : 
Matlab 稀 玻 矩阵 的 ir 数据 指针 。 
附加 说 明 : 
-if 指针 指向 稀 朴 矩阵 非 零 数 据 的 行 值 数据 ,这 些 行 值 数据 和 jc 指针 指向 的 列 值 数据 联合 
使 用 ,可 以 确定 Matlab 稀 琉 矩阵 的 非 零 元 素 的 行列 索引 值 。ir 指针 指向 的 一 位 数组 的 大 小 为 
nzmax, 其 中 nzmax 为 Matlab 稀疏 矩阵 的 最 大 非 零 元 素 的 个 数 。 
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40. mwIndex * mxGetJc(const mxArray x* array_ptr) ; 
函数 功能 : 

得 到 Matlab 稀 朴 矩阵 的 jc 数据 指针 。 
参数 说 明 : 

const mxArray * array_ptr Matlab 稀疏 矩阵 mxArray 指针 。 
返回 值 : 

Matlab 稀 朴 矩阵 的 jc 数据 指针 。 
附加 说 明 : 

jc 指针 指向 一 个 整 型 数组 ,数组 的 长 度 为 n 十 1, 其 中 mn 为 Matiab 稀 朴 矩阵 的 列 数 。jc 指 
针 指向 的 整 型 数组 的 数据 含义 为 : (jc[i 寸 一 jcLi],i<n) 表 示 稀 玻 矩 阵 第 i 列 数据 所 包含 的 
非 零 元 素 的 个 数 , 因 而 jc 指向 的 整 型 数组 和 ir 指向 的 整 型 数组 联合 使 用 可 以 确定 Matiab 稀 
政和 矩阵 的 非 零 元 素 的 行列 索引 值 。 

41，mxLogical * mxGetLogicals( const mxArray * array_ptr) ; 
函数 功能 : 

得 到 Matlab 逻辑 型 阵列 的 数据 指针 。 
参数 说 明 : 

const mxArray x array_ptr Matlab 逻辑 型 阵列 。 
返回 值 ， 

Matlab 逻辑 型 阵列 的 数据 指针 。 

42. size_t mxGetM(const mxArray * array_ptr); 
函数 功能 : 

得 到 Matlab 阵列 的 行 数 。 

43。size_t mxGetN{const mxArray x array_ptr) ; 
函数 功能 : 

得 到 Matiab 阵列 的 列 数 。 

44，double mxGetNaN(void) ; 
函数 功能 : 

得 到 NaN 的 值 (NaN 是 Not a Number 的 简写 ) 。 

45. mwSize mxGetNumberOfDimensions( const mxArray * array_ptr) ; 
函数 功能 : 

得 到 Matlab 阵列 的 维 数 。 

46. mwSize mxGetNumberOfElements( const mxArray * array_ptr) ; 
函数 功能 : 

得 到 Matlab 阵列 的 元 素 个 数 。 

47. int mxGetNumberOfFields( const mxArray * array_ptr) ; 
函数 功能 : 
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得 到 Matlab 结构 体 阵 列 的 域 的 个 数 。 
参数 说 明 : 

const mxArray* array_ptr Matlab 结构 体 阵 列 的 mxArray 的 指针 。 

48. mwSize mxGetNzmax( const mxArray * array_ptr) ; 
函数 功能 : 

得 到 Matlab 稀 朴 矩阵 的 最 大 非 零 元 素 个 数 (nzmax) 的 值 。 

49. double * mxGetPil const mxArray * array_ptr) ; 
函数 功能 : 

得 到 Matlab 双 精 度数 值 阵列 的 虚 部 数据 指针 。 

50.double * mxGetPr( const mxArray * array_ptr) ; 
函数 功能 : 

得 到 Matlab 双 精度 数值 阵列 的 实 部 数据 指针 。 

S1. double mxGetScalar( const mxArray * array_ptr) ; 
函数 功能 

得 到 Matlab 标量 阵列 的 值 。 

S2，int mxGetString( const mxArray * array_ptr,char x* buff ,int buflen) ; 
函数 功能 : 

得 到 Matlab 字符 类 型 阵列 的 字符 数据 。 此 时 得 到 的 字符 数据 不 是 Matlab 的 mxChar 类 
型 的 ,而 是 C 语言 char 类 型 的 ,并 且 是 以 ^\0” 字 符 结束 的 。 
参数 说 明 : 

const mxArray* array_ptr Matlab 字符 阵列 的 mxArray 指针 。 

charx buff 接受 Matlab 字符 阵列 字符 串 的 C 字符 串 指针 。 

int bufflen ”一 维 buff 字符 数组 的 大 小 ,包括 “\0”C 语言 字符 串 结束 符 在 内 。 
返回 值 ， 

如 果 函 数 调用 成 功 , 并 且 buff 的 大 小 足够 接受 Matlab 字符 阵列 的 所 有 字符 , 则 返回 0, 和 否 
则 返回 1。 
附加 说 明 ， 

如 果 输 入 的 Matlab 字符 阵列 是 多 维 的 ,此 时 将 会 按照 一 维 的 方式 返回 字符 阵列 中 所 有 的 
字符 。 这 时 候 , 返 回 的 字符 串 是 Matlab 字符 阵列 按 列 存储 的 结果 。 例 如 ,['ABCD';，EFGH'] 
返回 的 是 字符 串 “AEBFCGDH”, 下 面 就 是 一 个 利用 mxGetString 函数 显示 输入 字符 阵列 内 
容 的 MEX 文件 的 例子 。 

/wx mxCetString.c 文件 内 容 */ 

井 include "mex.hr 

并 include "matrix-h 

提 ifndef NULL 

## define NULL 0 

井 endif 
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void mexFunction(int nihs,mxArray * plhs[] ,int nrhs， 


const mxArray * prhs[]) 


int i=0; 
mwsSize j=0; 
char * buff; 
int nLent 


mwsize ndimsi 


const mwSize* dimsi 


unsigned int rbufflen; 
int statusi; 
if(nrhs 一 =0) 


{ 


) 


mexprintf(" 输入 参数 个 数 为 零 ! \m ); 


returny 


for(i=0ri<nrhsii++》 


放 


ndims = mxCGetNumberOfDimensions(prhe[ 门 )， 
dims = mxGCetDimensions(prhs[ 门 ); 
nbufflen= 1 
for(j= 0j<ndimsij++) 
{ 

nbufflen * = dims[ 门 ， 
】} 
nbufflen + =15// 用 于 存放 结束 字符 \O' 
放 ! mxlsChar(prhs[ 门 )) 
{ 

mexpPrintf(" 第 %d 个 输入 的 参数 不 是 字符 数组 ! \m ,i+ TD 


continuey 


buff= (char * ) mxCallocCnbufflen,sizeof(char)); 
status= mxCetString(prhs[ 门 ,buff,nbufflen) 
ifstatu ! = 0) 
{ 

mexWarnMsgTxt(" 字符 事 接收 空间 不 足 ! \m ) 
)} 
mexPrintf(" 字符 事 %d:%sNn ,i+ 1vbuffp); 
mxFree(bufp) : 
buff= NUU 
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】} 


53。bool mxIsCell( const mxArray * array_ptr) ; 
函数 功能 : 

判断 输入 Matilab 阵列 是 否 为 Cell 阵列 。 

54，bool mxIsChar( const mxArray * array_ptr) ; 
函数 功能 : 

判断 输入 Matlab 阵列 是 为 否 字符 阵列 。 

55。bool mxIsClass( const mxArray * array_ptr,const char * name) ; 
函数 功能 : 

判断 输入 Matlab 阵列 是 否 为 变量 name 标志 的 类 型 。 
参数 说 明 : 

const mxArray x* array_ptr Matlab 阵列 mxArray 指针 。 

const char * name 标志 Matlab 阵列 类 型 的 字符 串 , 其 中 name 字符 串 和 mxClassID 的 
对 应 关系 如 表 3 -5 所 列 。 

表 3-5 mxClassID 与 及 其 相对 应 的 字符 串 



























































名 称 对 应 的 mxClassID ] 

cell mxCELL_CLASS 
char mxCHAR_CLASS 
double mxDOUBLE_CLASS 
function handle mxFUNCTION_CLASS 
int8 mxINT8_CLASS 
int16 mxINT16_CLASS 
int32 mxINT32_CLASS 
logical mxLOGICAL_CLASS 
single mxSINGLE_CLASS 
Struct mxSTRUCT_CLASS 
uint8 mxUINT8_CLASS 
uint16 mxUINT16_CLASS 
uint32 mxUINT32_CLASS 

[ unknown mxUNKNOWN_CLASS 





附加 说 明 : 
下 面 几 种 函数 的 调用 方式 效果 是 相同 的 , 即 
@ mxIsClass("double"); 
@ mxIsDouble(array_ptr); 
@ strecmp(mxGetClassName(array_ptr),"double"); 
56。 bool mxIsComplex(const mxArray * array_ptr) ; 


函数 功能 : 
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判断 输入 的 Matlab 阵列 是 否 为 复数 型 阵列 。 

57.。bool mxIsDouble( const mxArray * array_ptr) ; 
函数 功能 : 

判断 输入 的 Matlab 阵列 是 否 为 为 双 精 度 型 阵列 。 

S8、bool mxJIsEmpty(const mxArray * array_ptr) ; 
函数 功能 : 


判断 输入 的 Matlab 阵列 是 否 为 空 ,Matlab 阵列 为 空 的 条 件 是 其 各 维 的 大 小 均 为 0。 


59.bool mxJsFinite( double value) ; 
函数 功能 : 

判断 输入 的 双 精 度数 值 是 否 为 有 限 值 。 

60. bool mxIsIinf(double value) ; 
函数 功能 : 

判断 输入 的 双 精 度数 值 是 否 为 无 穷 大 。 

61，bool mxlsInt8( const mxArray * array_ptr) ; 
函数 功能 : 

判断 输入 的 Matlab 阵列 类 型 是 否 为 8 位 有 符号 整 型 。 

62，bool mxIsInt16 (const mxArray * array_ptr) ; 
函数 功能 : 

判断 输入 的 Matlab 阵列 类 型 是 否 为 16 位 有 符号 整 型 。 

63，bool mxIsInt32( const mxArray * array_ptr) ; 
函数 功能 : 

判断 输入 的 Matlab 阵列 类 型 是 否 为 32 位 有 符号 整 型 。 

64，bool mxlsUint8 ( const mxArray * array_ptr) ; 
函数 功能 ， 

判断 输入 的 Matlab 阵列 类 型 是 否 为 8 位 无 符号 整 型 。 

65. bool mxIsUintl16{ const mxArray * array_ptr) ; 
函数 功能 : 

判断 输入 的 Matlab 阵列 类 型 是 否 为 16 位 无 符号 整 型 。 

66. bool mxIsUint32( const mxArray * array_ptr); 
函数 功能 : 

判断 输入 的 Matlab 阵列 类 型 是 否 为 32 位 无 符号 整 型 。 

67.。bool mxIsLogical( const mxArray * array_ptr) ; 

函数 功能 : 

判断 输入 的 Matlab 阵列 类 型 是 否 为 逻辑 型 。 

68.， bool mxIsLogicalScalar( const mxArray * array _ptr) ; 
函数 功能 : 
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判断 输入 的 Matlab 标量 阵列 类 型 是 否 为 逻辑 型 。 

69.bool mxJIsLogicalScalarTrue( const mxArray * array_ptr) ; 
函数 功能 : 

判断 输入 的 Matlab 逻辑 型 标量 的 值 是 否 为 true。 

70.bool mxJlsNaN( double value) ; 
函数 功能 : 

判断 输入 的 double 值 是 否 为 NaN(Not a Number) 。 

71、bool mxJsNumeric( const mxArray * array_ptr) ; 
函数 功能 : 

判断 输入 的 Matlab 阵列 是 否 为 数值 阵列 。 

72。bool mxIsSingle( const mxArray * array_ptr) ; 
函数 功能 : 

判断 输入 的 Matlab 阵列 是 否 为 单 精度 数值 阵列 。 

73。bool mxJsSparse( const mxArray * array_ptr) ; 
函数 功能 : 

判断 输入 的 Matlab 阵列 是 否 为 稀 朴 矩阵 。 

74. bool mxlsStruct( const mxArray * array_ptr) ; 
函数 功能 : 

判断 输入 的 Matlab 阵列 是 否 为 结构 体 阵 列 。 

75，bool mxIsIntX( const mxArray * array_ptr) ; 
函数 功能 : 

判断 输入 的 Matlab 阵列 是 否 为 X 位 整 型 阵列 ,其 中 X 为 8、16 或 者 32。 

76， void * mxMalloc(size_t n) ; 
函数 功能 : 

采用 Matlab 内 存 管理 模块 动态 分 配 内 存 , 与 C 语言 的 malioc 类 似 。 在 MEX 文件 中 ， 
Matlab 内 存 管理 模块 会 自动 维护 一 个 由 mxMalloc 分 配 的 内 存 列 表 , 当 MEX 文件 执行 返回 
到 Matlab 命令 行 时 ,Matlab 内 存 管 理 模块 会 自动 释放 由 mxMalloc 分 配 的 内 存 。 但 是 在 使 用 
此 函数 的 Matlab 与 C 语言 混 编 独立 可 执行 文件 中 ,mxMalloce 在 默认 情况 下 调用 C 语言 的 
malloc 函数 ,开发 人 员 可 以 通过 函数 mxSetAllocFcns 设置 自己 的 内 存 分 配 函数 。 

77。void * mxRealloc( void * ptr,size_t size) ; 
函数 功能 : 

重新 分 配 内 存 块 的 大 小 ,采用 此 函数 有 可 能 会 造成 内 存 泄漏 。 

78。extern void mxRemoveField(mxArray * array_ptr,int field_number) ; 
函数 功能 : 

去 除 结构 体 阵列 的 一 个 域 。 
参数 说 明 : 
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mxArray* array_ptr 结构 体 阵列 的 mxArray 指针 。 

int field_number 域 号 。 

79. void mxSetAilocFcns( calloc_proc callocfcn ,free_proc freefcn ， 

realloc_proc reallocfcn ,malloc_proc mallocfcn) ; 

函数 功能 : 

注册 自己 开发 的 Matlab 内 存 分 配 和 释放 函数 。 
参数 说 明 : 

calloc_proc callocfcn “手动 注册 的 calloc 函数 名 。 

free_proc freefcn 手动 注册 的 free 函数 名 。 

realloc_proc reallocfcn 手动 注册 的 realloc 函数 名 。 

malloc_proc mallocfcn 手动 注册 的 malloc 函数 名 。 
附加 说 明 : 

在 MEX 文件 中 ,不 允许 调用 mxSetAllocFcns, 否 则 会 导致 编译 出 错 。 在 独立 可 执行 的 调 
用 mx 函数 的 C 语言 程序 中 ,默认 情况 下 mxAlloc,mxRealloc 和 mxMalloc 只 是 分 别 调用 C 
语言 的 alloc,realloc 和 malloc 函数 ,而 mxFree 则 在 输入 参数 非 NULL 的 情况 下 调用 C 语言 
free 函数 。 在 独立 可 执行 调用 mx 函数 的 C 语言 程序 中 ,调用 mxSetAllocFens 可 以 注册 用 户 
自己 的 内 存 分 配 和 释放 函数 。 

手动 注册 的 callocfen 函数 必须 按照 下 面 的 格式 声明 ， 

void * callocfcn(size_t nmembysize_t size); 
手动 注册 的 freefcn 函数 必须 按照 下 面 的 格式 声明 : 
void freefcn(Cvoid * ptr)， 
手动 注册 的 reallocfcn 函数 必须 按照 下 面 的 格式 声明 
void * reallocfcn(void * ptrysize_t size); 
手动 注册 的 mallocfen 函数 必须 按照 下 面 的 格式 声明 : 
void x mallocfcn(size_t n); 

程序 实例 : 

下 面 就 是 一 个 手动 注册 用 户 自 己 的 calloc,free,malloc 和 realloc 函数 的 例子 。 

/1*# setalloc.c 文 件 内 容 */ 

提 include "stdafx.hy 

井 include 一 stdio.h> 

#include 一 stdlb.h> 

间 include "matrix.h” 


/# 用户 注 册 的 calloc 函数 * / 
void * my_calloc(size_t nvsize_t size) 
{ 
void ptr 
printf("\t 调用 注册 的 calloc 函数 1 \n )# 
if(n<= 0) 1 (size<=0)) 
{ 
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returm NULL; 


ptr= calloc(nvsize)， 
returmn(ptD， 


} 
/* 用 户 注 册 的 free 函数 */ 
void my_free(void pt 
{ 
printf("\t 调用 注册 的 free 函数 Nm ) 5 





free(ptrD)# 


/w 用 户 注册 的 realloc 函数 * / 
void w my_realloc(void * ptrvsize_t size) 
《 
printf"\t 调用 注册 的 realloc 函数 1 Nm )， 
计 (size == 0) 
{ 
free(ptD， 
】} 
if (size 一 = 0) 
《 
return NULL; 
》 
if (ptr == NULL) 
{ 
ptr= malloc(size); 
} 
else 
{ 
ptr= realloc(ptrsize)， 
} 
return(ptr) 





第 3 章 ”Matlab 与 C 语 言 的 接口 73 








Vs* 用 户 注册 的 malloc 函数 * / 
voidx my_mallocCsize tsize) 
{ 
void xptr 
printf("\t 调用 注册 的 malloc 函数 1 \m ); 
if (size 一 = 0) 
{ 
retum NULL; 


else 


ptr= malloc(size)， 


retum(ptrD 


/* 测试 函数 */ 

int main(int argcvchar * argv[]) 

{ 
char wx 
mxArray w pa 
mxSetAllocFcns(my_calloc,my_freeymy_realloc,my_malloc)， 
printf( "创建 一 个 字符 阵列 .…. \n' )# 
pa= mxCreateString(" 手动 注册 内 存 分 配 函 数 的 实例 ! \m ); 


printf("\n 调用 rmxCalloc 函数 为 字符 串 分 配 内 存 ..\n )+ 
x= (char * )mxCalloc(255,sizeof(char))， 
mxGetString(pavx,255) 
printf("\n 打印 字符 事 中 的 内 容 :\nNt %sNnm ,xD)+ 
printf("\n 释放 分 配 的 内 存 . .Nm )# 
mxFree(x) 
printf("\n 释放 字符 阵列 .. …)5 
mxDestroyArray(pa); 
getchar(); 
return 0 

】}》 


执行 mbuild setalloc. c 将 上 述 C 语言 程序 编译 为 可 执行 文件 ,运行 测试 函数 的 执行 结果 
如 下 所 示 。 
创建 一 个 字符 阵列 .… . 


调用 注册 的 calloc 函数 ! 
调用 注册 的 calloc 函数 ! 


74 精通 Matlab 与 C/C 十 十 温 合 程序 设计 (第 2 版 ) 








调用 mmxCalloc 函数 为 字符 理 分 配 内 看. - 
调用 注册 的 calloc 函数 ! 
打印 字符 事 中 的 内 容 : 
手动 注册 内 存 分 配 函数 的 实例 ! 
释放 分 配 的 内 存 .… 
调用 注册 的 free 函数 ! 
释放 字符 阵列 .调用 注册 的 free 函数 ! 
调用 注册 的 free 函数 ! 
80， void mxSetCell( mxArray * array_ptr,mwIndex index,mxArray * value) ; 
函数 功能 :“ 
设置 Matlab Cell 阵列 的 元 素 值 。 
参数 说 明 : 
mxArray * array_ptr Matlab Cell 阵列 。 
mwlndex index 待 设置 的 元 组 元 素 线性 索引 ,用 mxCalcSingleSubscript 函数 得 到 。 
mxArray * value 待 设置 的 元 组 元 素 值 的 mxArray 指针 。 
附加 说 明 : 
mxSetCell 既 可 以 为 空 的 Matlab 元 组 阵列 设置 值 ,也 可 以 替换 元 组 中 原 有 的 值 ,但 是 这 
时 候 需 要 先 调用 mxDestroyArray 函数 释放 元 组 中 原 有 元 素 占用 的 内 存 。 
81.， void mxSetData( mxArray * array_ptr,void * data_ptr) ; 
函数 功能 : 
设置 Matlab 非 double 型 数值 阵列 的 数据 指针 。 
参数 说 明 : 
mxArray * array_ptr Matlab 非 double 型 数值 阵列 。 
void * data_ptr 指向 数据 区 的 指针 。 
附加 说 明 ， 
mxSetData 与 mxSetPr 的 函数 功能 相似 ,只 不 过 mxSetPr 用 来 设置 double 型 数值 阵列 的 
实 部 数据 指针 。 
,82，int mxSetDimensions(mxArray * array_ptr,const mwSize * dims， 
mwsize ndim) ; 
函数 功能 : 
改变 Matlab 阵列 的 维 数 和 各 维 指针 。 
参数 说 明 : 
mxArray x array ptr Matlab 阵列 的 mxArray 指针 。 
const mwSize * dims Matlab 各 维 大 小 的 整 型 数组 ,数组 大 小 为 ndim。 
mwSize ndim dims 数组 的 大 小 ,也 即 Matlab 阵列 的 维 数 。 
83. void mxSetField( mxArray * array_ptr,mwIndex index,const char 
* field_name,mxArray * value) ; 
函数 功能 : 
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改变 Matlab 结构 体 阵列 的 域 值 。 
参数 说 明 : 

mxArray * array_ptr Matlab 结构 体 阵 列 。 

mwIndex index 要 改变 的 结构 体 阵列 元 素 的 线性 索引 ,用 mxCalcSingleSubscript 函数 
得 到 。 

const char * field_name ”要 改变 域 值 的 结构 体 域名 。 

mxArray* value 待 设置 的 Matlab 阵列 的 mxArray 指针 。 
附加 说 明 : 

mxSetField(pa,index, "field_name" ,new_value_pa) ;与 下 面 的 语句 的 功能 相同 : 

field_num 王 mxGetFieldNumber(pa，field_name"); 
mxSetFieldByNumber(pa,index',field_num,new_value_pa); 
84. void mxSetFieldByNumber( mxArray * array_ptr,mwIndex index， 
int field_number,mxArray * value) ; 

函数 功能 : 

与 mxSetField 函数 的 功能 相同 ,只 是 此 函数 根据 输入 的 结构 体 域 号 而 不 是 域名 来 判断 要 
更 改 的 Matlab 结构 体 域 。 

85，void mxSetImagData( mxArray x* array_ptr,void * pi) ; 
函数 功能 : 

设置 非 double 型 数值 阵列 的 虚 部 数据 指针 。 
参数 说 明 : 

mxArray x array_ptr Matlab 非 double 型 数值 阵列 的 mxArray 指针 。 

void* pi 待 设置 的 虚 部 数据 指针 。 
附加 说 明 ， 

mxSetImagData 与 mxSetPi 的 函数 功能 相似 ,只 不 过 mxSetPi 用 来 设置 double 型 数值 阵 
列 的 实 部 数据 指针 。 

86. void mxSetIr( mxArray * array_ptr,mwIndex * ir); 


函数 功能 : 
设置 Matlab 稀 朴 矩阵 阵列 的 非 零 元 素 的 列 数 信息 。 
参数 说 明 : 
mxArray x array_ptr Matilab 稀 玻 矩阵 阵列 的 mxArray 指针 。 
mwIndexx ir Matlab 稀 朴 矩阵 的 行 信息 整 型 数组 ,数组 的 长 度 为 nzmax, 其 中 nzmax 为 
Matlab 稀 朴 矩阵 的 最 大 非 零 元 素 各 数 。 
附加 说 明 : 
参考 本 章 3. 9 稀疏 数组 阵列 (Sparse Array) 一 节 。 
87. void mxSetJc(mxArray * array_ptr,mwJIndex* jc); 
函数 功能 : 
设置 Matlab 稀 朴 矩阵 阵列 的 非 零 元 素 的 列 数 信息 。 
参数 说 明 : 
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mxArray x array_ptr “Matlab 稀 朴 矩阵 阵列 的 mxArray 指针 。 
mwIndex* jc Matlab 稀疏 矩阵 阵列 的 列 信息 整 型 数组 ,数组 的 长 度 为 N 十 1, 其 中 NN 为 
Matlab 稀 朴 矩阵 的 列 数 。 
附加 说 明 : 
参考 本 章 3. 9 稀 朴 数组 阵列 (Sparse Array) 一 节 。 
88， void mxSetM(mxArray * array_ptr,mwSize m) ; 
函数 功能 ， 
设置 Matlab 阵列 的 行 数 。 
参数 说 明 : 
mxArray * array_ptr Matlab 阵列 的 mxArray 指针 。 
int m Matlab 阵列 的 行 数 。 
89.， void mxSetN(mxArray * array_ptr,mwSize n) ; 
函数 功能 ， 
设置 Matlab 阵列 的 列 数 。 
参数 说 明 : 
mxArray * array_ptr Matlab 阵列 的 mxArray 指针 。 
int m。 Matlab 阵列 的 列 数 。 
90， void mxSetNzmax(mxArray * array_ptr,mwSize nzmax); 
函数 功能 : 
设置 Matlab 稀 疏 矩阵 阵列 的 最 大 非 零 元 素 个 数 。 
参数 说 明 : 
mxArray x* array_ptr Matlab 稀 朴 矩阵 阵列 的 mxArray 指针 。 
mwSize nzmax Matlab 稀 玻 矩阵 阵列 的 最 大 非 零 元 素 个 数 。 
91， void mxSetPi( mxArray * array_ptr,double * pi) ; 
函数 功能 : 
设置 doubile 型 数值 阵列 的 虚 部 数据 指针 。 
参数 说 明 : 
mxArray w array_ptr Matlab double 型 数值 阵列 的 mxArray 指针 。 
double * pi 待 设置 的 虚 部 数据 指针 。 
92. void mxSetPr( mxArray * array_ptr,double * pr); 
函数 功能 : 
设置 double 型 数值 阵列 的 实 部 数据 指针 。 
参数 说 明 : 
mxArray x* array_ptr ”Matlab double 型 数值 阵列 的 mxArray 指针 。 
double * pr 待 设置 的 实 部 数据 指针 。 
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3.7 Matiab mex 函数 


1，int mexAtExit( void ( * ExitFcn) ( void) ) ; 
函数 功能 : 

注册 MEX 文件 被 清除 或 者 Matlab 关闭 时 调用 的 函数 。 
参数 说 明 : 

void (* ExitFen)(void) MEX 文件 被 清除 或 者 Matlab 关闭 时 调用 的 函数 。 
附加 说 明 : 

当 MEX 文件 被 清除 ,或 者 Matlab 退出 时 ,借助 设置 的 ExitFcn 函数 可 以 及 时 清除 MEX 
文件 用 void mexMakeMemoryPersistent 函数 设置 的 .MEX 文件 执行 完毕 后 依然 没有 被 清除 
的 内 存 域 。 另 外 ,ExitFcn 函数 也 可 以 用 来 关闭 全 局 文件 或 者 全 局 socket 链接 。 如 果 一 个 
MEX 文件 中 多 次 调用 mexAtExit, 只 有 最 近 被 设置 的 那个 函数 起 作用 。 


/wmexatexit,c 文件 内 容 * / 
#include 一 stdio.h> 
间 include "mex.h 


/* 静态 全 局 变量 ,MEX 文件 执行 退出 时 仍然 存在 ! */ 
static FILE 。 * 外 =NULL; 


/1wY 当 MEX 文件 被 清除 或 者 Matlab 退出 时 调用 此 函数 * / 
static void CloseFile( void) 
{ 
mexPrintf( "关闭 \" 文件 :mydata.dat\ 1 \n )4 
fclose(fp) 
这 
功能 : 
打开 文件 mydata.dat, 并 向 其 写 入 一 个 字符 事 
当 MEX 文件 mexAtExit 被 清除 时 ,关闭 文件 mydata dat 
/ 
void mexFunction(int nlhs,raArray * plhs[] ,int nrhs,const mxArray * prhs[]) 
人 


char str 


/* 检查 输入 有 效 性 * / 

if(Cnths! = 1) 

{ 

mexErrMsgTxt(" 只 能 有 一 个 输入 参数 ! \m ) 
}》 

ifnihs > 1 
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{ 

mexErrMsgTxt(" 输出 参数 过 多 1 \n )5 

】} 

并 (! 《mxlsChar(prhs[0]))) 

{ 

mexFErrMsgTxt(" 输入 参数 只 能 是 字符 类 型 阵列 ! \n，)5 
》 


诉 (个 == NULL) 
{ 
们 = fopen("mydata.datr，w")5 
if (人 ==NUU) 
{ 
mexErrMsgTxt(" 打开 文件 mydata. dat 出 错 ! \m ); 
)} 


/*# 注册 MEX 文件 退出 函数 */ 
mexAtExit( CloseFile) ; 
】} 


str= mxArrayToString(prhs[O])， 
首 《fprintf( 人 ，， %sNn ,str) ! = strlen(stm +1) 
人 
mxFree(strD) 
mexErrMsBgTxt(" 写 入 文件 mydata.dat 出 错 ! \n ); 
mexpPrintf( "字符 囊 :%s 写 入 到 文件 mydata.dat 中 ! \m ,stD+ 
mxFree(str) 
} 


该 程序 的 执行 结果 如 下 所 述 。 

闵 mex mexatexit.C 

六 mexatexit(! 退出 MEX 文件 mexatexit! )) 

字符 囊 : 退 出 MEX 文件 mexatexit! 写 入 到 文件 mydata.dat 中 上 

六 clear al 

关闭 "文件 :mydata.dat ! 

六 

2. int mexCallMatlab( 
int nihs,mxArray * plhs[]， 
int nrhs， 


mxArray * prhs[ ] ,const char * command_name 


); 


函数 功能 : 


在 MEX 文件 中 调用 Matlab 的 函数 或 者 用 户 编写 的 函数 及 MEX 文件 。 
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参数 说 明 : 
下 面 参数 的 定义 与 mexFunction 的 定义 构造 和 使 用 方法 相同 。 


调用 函数 的 输出 参数 个 数 





int nlhs 
mxArray* plhs[] 调用 函数 的 输出 参数 
int nrhs 调用 函数 的 输入 参数 个 数 


mArray * prhs[] ,const char * command_name 调用 函数 的 输入 参数 


* mexcallMatlab.c * 
*# 说 明 : 


实例 调用 mexCallMatlab 调用 用 户 编写 的 函数 image3d(image3d.m) 





砷 include "mex.h” 
void mexFunction( int nlhs,mxArray * plhs[] ,int nrhs,const mxArray * prhs[]) 


mexCallMatlab(0,NULL,O,NULL, image3d" )， 
image3d 函数 是 将 二 维 图 像 按照 三 维 数据 的 形式 显示 出 来 (在 本 书 附带 的 光盘 中 可 以 找 
到 image3d. m 文件 ) 。 实 例 的 执行 结果 如 图 3- 3 所 示 。 


Figure Wo 1 
Pile Rdit 下 mm Insert Tools indow elp 


口 咏 回 AAA 骨 另 汪 
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图 3-3 ”mexCallMatlab 实例 运行 结果 
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3。 void mexErrMsgTxt( const char * error_msg) ; 
函数 功能 : 
输出 错误 信息 。 


4.、int mexEvalString( const char * command ) ; 


函数 功能 : 
执行 Matlab 命令 。 
参数 说 明 : 
const charx* command 要 执行 的 Matlab 命令 。 
附加 说 明 : 
mexEvalString 与 mexCallMatlab 不 同 ,mexCallMatlab 可 以 传递 MEX 文件 中 的 参数 并 
且 将 执行 结果 返回 到 MEX 文件 中 ,而 mexEvalString 则 只 能 调用 当前 工作 空间 中 的 变量 进行 
运算 。 
实例 : 
/1 w mexEvalstring 文件 内 容 * / 
间 include "mex.hr 
void mexFunction(Cint nlhs,mxArray * plhs[] ,int nrhs,const mxArray * prhs[]) 
{ 
mexPrintf("x= rand(500,500) iimahow(x)i") 
mexEvalString("x= rand(500,500) ;imshow(x)i) 
}》 


S。const char * mexFunctionName(void) ; 


函数 功能 : 
返回 当前 调用 的 MEX 文件 名 。 
实例 : 
/1 * mexFunctionName.c 文件 内 容 */ 
间 include "mex.h' 
void mexFunction(int nihs,mxArray * plhs[] ,int nrhsvconst mxArray * prhs[]) 
{ 
const char call 
call = mexFunctionName()+ 
mexPrintf(" 当前 调用 的 MEX 文件 为 :%sNn ,calD; 
} 


实例 的 执行 结果 如 下 所 示 。 


六 mexfunctionname 
当前 调用 的 MEX 文件 为 :mexfunctionname 
六 


6。const mxArray * mexGet( double handle,const char * property) ; 


函数 功能 : 
得 到 Matlab 指定 图 形 句 柄 的 属性 值 。 
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参数 说 明 : 
double handle ”Matlab 绘制 窗口 句柄 。 
const char * property 待 返回 值 的 属性 名 称 。 
附加 说 明 ， 
实例 ， 
/ax mexget.c 文件 内 容 */ 
井 include "mex.h 
void mexFunction(int nlhs,mxArray * plhs[] ,int nrhs， 
const mxArray * prhs[]) 





{ 


double handle; 
const mxArray * 。 positiont 
double* pr 


/1* 参数 有 效 性 检查 * / 
inrhs ! = 1 11 1! mxlsDoubleGprhs[0])) 
{ 
mexErrMsgTxt(" 只 接收 一 个 参数 ,并 且 为 double 型 Matlab 句柄 ! \m ); 
)} 
position = mexCet( * mxCGetPr(prhs[0]) Position )， 
pr = mxGetPr(position)， 
pr[f2]=pr[2]/2;/ * 把 输入 的 窗口 句柄 对 应 的 窗口 变 为 原来 大 小 的 一 半 */ 
pr[3]=pr[3]/2， 
mexprintf(" 现在 窗口 的 参数 如 下 :， Nm" ) 
mexPrintf(" right: % fleft: %f,width: %fhegith: %fP ,pr[O],prL1],prL2],pr[3]); 
mexSet( * mxCetPr(prhs[0])， Position” ,position)， 

} 

实例 的 执行 结果 如 下 所 示 : 

六 h= fguretmexget(h)， 

现在 窗口 的 参数 如 下 : 

right:232. 000000 ,left:258. 000000,width:280. 000000 ,hegith:210.000000 

7。mxArray * mexGetVariable( const char * workspace,const char 
x Var_name); 

函数 功能 : 
从 指定 工作 区 间 中 根据 变量 名 称 得 到 该 变量 的 一 个 备份 。 


参数 说 明 : 

const char x* workspace 工作 区 间 ,其 中 'global' 表示 全 局 工作 空间 ,"base' 表示 基本 工作 
空间 ,caller' 表示 调用 此 MEX 文件 的 工作 空间 。 

const char * var_name ”变量 名 称 字符 串 。 
函数 返回 : 

如 果 调 用 成 功 则 返回 相应 变量 复制 的 mxArray 指针 ;如 果 调 用 失败 , 则 返回 NULL。 
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附加 说 明 : 

用 此 函数 得 到 的 只 是 变量 的 一 个 复制 ,对 得 到 的 mxArray 指针 进行 任何 修改 ,不 会 影响 
工作 区 间 中 的 原 变量 。 

8.const mxArray * mexGetVariablePtr( const char * var_name,const 

char * workspace) ; 

函数 功能 : 

根据 变量 名 称 , 得 到 指定 工作 区 间 变 量 的 只 读 mxArray 指针 。 
参数 说 明 : 

const charx var_name ”变量 名 称 字符 串 。 

const char * workspace “工作 区 间 ,其 中 'global' 表示 全 局 工作 空间 ,"base!' 表示 基本 工 
作 空间 ,"caller! 表示 调用 此 MEX 文件 的 工作 空间 。 
附加 说 明 

用 mexGetVariablePtr 得 到 的 变量 指针 是 只 读 的 ,不 能 修改 变量 的 内 容 。 如 果 需 要 改变 
变量 的 内 容 , 可 以 采用 mexGetVariable 和 mexSetVariable 组 合 的 方式 。 

9，bool mexIsGlobal( const mxArray * array_ptr) ; 
函数 功能 : 

判断 输入 变量 是 否 为 全 局 工作 变量 。 

10，bool mexJsLocked( void) ; 


函数 功能 : 

判断 当前 MEX 文件 是 否 被 锁定 (锁定 即 不 能 被 用 户 在 命令 行 清除 掉 ) ,默认 情况 下 MEX 
文件 是 非 锁定 的 。 

11， void mexLock(void) ; 
函数 功能 : 

锁定 当前 的 MEX 文件 。 

12，void mexMakeArrayPersistent( mxArray * array_ptr) ; 
函数 功能 : 

使 输入 的 Matlab mxArray 阵列 在 MEX 文件 退出 以 后 仍然 存在 。 
参数 说 明 : 

mxArray x array_ptr Matlab 阵列 mxArray 的 指针 。 
附加 说 明 : 

一 般 情 况 下 ,使 用 mxCreate * * 函数 创建 的 mxArray 变量 在 MEX 文件 退出 时 ,Matlab 
内 存 管理 器 会 自动 将 其 占用 的 内 存 释放 。 如 果 开 发 者 希望 创建 的 mxArray 变量 在 当前 MEX 
文件 退出 以 后 ,仍然 可 以 被 MEX 文件 访问 到 ,就 要 使 用 mexMakeArray-Persistent 函数 改变 
其 生命 周期 。 但 是 ,Matlab 内 存 管理 器 并 不 负责 释放 mxArray 变量 占用 的 内 存 , 因 而 需要 结 
合 mexAtExit 函数 使 用 ,注册 一 个 MEX 文件 被 清除 时 需要 调用 的 函数 ,并 在 此 函数 中 调用 
mxDestroyArray 来 释放 其 内 存 。 

13。 void mexMakeMemoryPersistent(void * ptr) ; 
函数 功能 : 

改变 由 Matlab 的 内 存 分 配 函 数 ( 如 mxCalloc,mxMalloc,mxRealloc 等 ) 分 配 的 内 存 的 生 


第 3 章 Matlab 与 C 语 言 的 接口 83 








命 周期 ,使 其 在 MEX 文件 执行 完毕 时 ,仍然 保持 在 内 存 中 。 
附加 说 明 : 

与 mexMakeArrayPersistent 类 似 , 用 此 函数 改变 了 内 存 的 生命 周期 以 后 , Matlab 内 存 管 
理 器 不 会 自动 释放 这 块 内 存 , 因 而 需要 用 mexAtExit 函数 注册 一 个 在 系统 退出 或 者 MEX 文 
件 被 清除 时 调用 的 函数 以 释放 内 存 。 
实例 : 


1 mexmakepersist.c 文件 内 容 * / 
/x 说明， 
执行 mexmakepersist('c)) 创建 长 生命 周期 的 变量 
执行 mexmakepersist('s) 显 示 创 建 的 长 生命 周期 变量 
采用 clear all 清除 MEX 文件 时 ,freememory 函数 会 自动 清除 长 生命 周期 变量 的 内 存 空间 
*/ 
间 include 一 stdio.h> 
间 include "mex.h 
间 include "stdlib .hr 
井 include "string.h" 


/* 静态 全 局 变量 ,MEX 文件 执行 退出 时 仍然 存在 ! * / 
mxArray wpArray= NULL; 

char * strBuff= NULL; 

int sMexAtExitCall= NUUL; 


/1*# 当 MEX 文件 被 清除 或 者 Matlab 退出 时 调用 此 函数 */ 
static void freememory(void) 
{ 
ipArray! = NULL) 
{ 
mxDestroyArray(pArray) ， 
pAray= NUUL 
上 
if(CstrBuff! =NUUL) 
{ 
mxFree(strBuff) ; 
pArray=NUUL 
)} 
mexpPrintf(" 释放 全 局 生命 周期 变量 的 内 存 ! \n )5 
】} 


void mexFunctionkint nihsvmxArray * plhs[] ,int nrhs,const mxArray * pths[]) 
1 

int i=0; 

mxArray * PString; 

char * buff 

mxArray * prhs1[1]; 


精通 Matlab 与 C/C 十 十 混合 程序 设计 (第 2 版 ) 











pString=prhs[0]， 
说 (nrhs! =1)11! 《mxlsChar(pString))) 
人 { 
mexErrMsgTxt(" 只 接收 一 个 字符 类 型 的 Matlab 阵列 ! \n ); 
}》 
buff = mxCalloc(2,sizeof(char) )， 
mxCetString(pString,buff,2); 
Printf(" 输入 的 命令 为 ;:%cNvn ，* bufpD 
i wbuff=='cD) 





# 《mxCetPr(PpArray) + iD=(1.0w rand())/RAND_MAX 


}》 
mexMakeArrayPersistent(pArray) 
printf(" 生 成 512 * 512 随机 短 阵 1 \n" )? 


} 

if(strBuff== NULL) 

{ 
strBuff= mxCalloc( 100,sizeof(char))， 
for(i= ONi<99ii++) 
{ 

strBu 低 门 = (charn)('IA'+ (1.0w rand()/RAND_MAX) * 25) 

}》 
strBuff[ 门 = NO 
mexMakeMemoryPersistent(strBufpD 
printf(" 生 成 99 个 随机 大 写字 母 ! \n )+ 
printf(" %sNn" ,strBuf 


)} 
else 放 * buff== 'S) 
人 
istrBuf ! = NULL) 
{《 
mexprintf(" 在 第 二 个 mex 函数 中 显示 strBuff 的 内 容 :\n ) + 
mexPrintf(”% sNn” ,strBuff) ; 


放 pArray! =NUULD) 

{ 
mexEvalString(" pause(3)”) 
prhs1[0] = pArray 
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mexPrintf( ”显示 mexmakepersist 生成 的 随机 短 阵 ! \n"); 
mexCallMatlab(0,NULL,1,prhsl,"imshow )， 


mexprintf(" 输入 命令 标志 错误 ! \n" ); 
iisMexAtExitCall== 0) 


mexAtExit(freememory) ， 
isMexAtExitCall= 1; 





mexPrintf( "MEX 文件 被 清除 时 的 退出 函数 注册 ! \n ) 
mxFree(bufp) ; 
buff= NULL; 


实例 的 执行 结果 如 图 3-4 所 示 。 
六 mex mexmakepersist .< 
信 mexmakepersist('c)) ， 


输入 的 命令 为 :c 
生成 512* 512 随机 答 阵 ! 
生成 9 个 随机 大 写字 母 ! 
OFBCFYQNXNDYQTYHDEOCYPBPVCSAWDMPWFTHRJIUBASWOIOEMATRA 
) Figure 而 0。 1 
Rile Bait 王 ew， Insert Tools 量 ndow Help 
口 芒 加 入 NA 





图 3-4 mexmakepersist 产生 的 随机 和 矩阵 显示 
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MYOFXCATSSVBCAIPARECJEVTBCDMCGXHSCYNIXHBFKCWDMU 
MEX 文件 被 清除 时 的 退出 函数 已 经 注册 ! 
六 mexmakepersist('s) 


输入 的 命令 为 :s 


在 第 二 个 mex 函数 中 显示 strBuff 的 内 容 : 
OFBCFYQNXNDYQTYHDEOCYPBPVCSAWDMPWFTHRIUBASWOJOEMATRA 
MMVOFXCATSSVBCGAIPARECIEVTBCDMCXHSCYNIXHBFKCWDMU 

显示 mexmakepersist 生成 的 随机 和 矩 阵 ! 

交 

六 dear al; 

释放 全 局 生命 周期 变量 的 内 存 ! 


14. int mexPrintf( const char * format,. .. ); 


函数 说 明 : 

使 用 方法 与 C 语言 的 printf 函数 相同 。 
附加 说 明 ， 

由 于 Matlab 已 经 内 置 了 一 个 printf 函数 ,因而 采用 mexPrintf 函数 可 以 使 MEX 文件 不 
必 链 接 整 个 stdio 链接 库 。 

15，int mexPutVariable( const char * workspace,const char * var_naime， 

mxArray * array_ptr) ; 

函数 说 明 : 

将 指定 Matlab mxArray 变量 复制 到 相应 的 工作 空间 中 。 
参数 说 明 : 

const char x workspace “工作 区 间 , 其 中 'global' 表示 全 局 工作 空间 , "base' 表示 基本 工 
作 空间 ,caller' 表示 调用 此 MEX 文件 的 工作 空间 。 

const char x var_name ”变量 名 称 字符 串 , 即 将 mxArray 复制 到 相应 工作 空间 的 变量 名 
称 。 

mxArray x array_ptr Matlab mxArray 变量 指针 。 
附加 说 明 : 

如 果 目 的 工作 空间 中 有 一 个 变量 名 称 与 var_name 相同 , 则 调用 mexPutVariable 会 将 目 
的 工作 空间 中 变量 的 原始 内 容 覆 盖 。 

16，int mexSet(double handle,const char * property,mxArray * value) ; 
函数 功能 : 

设置 相应 Matlab 图 形 窗 只 的 属性 值 。 
参数 说 明 : 

double handle ”Matlab 图 形 句柄 。 

const char x property ”Matlab 图 形 句柄 的 属性 名 称 。 

mxArray x value ”要 设置 的 属性 值 的 mxArray 指针 。 

17。 void mexSetTrapFlag(int trap_flag) ; 
函数 功能 : 
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设置 调用 mexCallMatlab 出 错时 的 处 理 策略 。 
参数 说 明 : 

int trap_flag 处 理 策略 标志 ,为 0 表示 在 调用 mexCallMatlab 函数 出 错时 返回 到 Matlab 
命令 行 中 ,为 1 表示 在 调用 mexCallMatlab 函数 出 错时 返回 到 MEX 文件 中 。 默 认 情 况 下 ,在 
调用 mexCallMatlab 函数 出 错时 返回 到 Matlab 命令 行 中 。 

18， void mexUnlock(void) ; 


函数 功能 : 
结束 当前 MEX 文件 的 锁定 状态 ,使 用 户 可 以 通过 命令 行 从 内 存 中 清除 MEX 文件 。 
19。 void 饶 exWarnMsgTxt( const char * warning_msg) ; 

函数 功能 : 
显示 警告 信息 ,与 mexErrMsgTxt 函数 的 使 用 方法 类 似 。 


3.8 ”Matlab 普通 数值 阵列 的 操作 


Matlab 双 精度 型 数值 阵列 的 实 部 数据 区 的 指针 和 虚 部 数据 区 的 指针 分 别 可 以 通过 
mxGetPr 和 mxGetPi 这 两 个 函数 得 到 ,因而 C 语言 对 Matlab 双 精度 型 数值 阵列 的 操作 只 要 
通过 操作 其 实 部 数据 区 指针 和 虚 部 数据 区 指针 即 可 。 

Matlab 其 他 类 型 的 数值 阵列 类 型 如 8 位 整 型 ,16 位 整 型 和 32 位 整 型 等 ,其 实 部 数据 区 的 
指针 和 虚 部 数据 区 的 指针 则 是 通过 mxGetData 和 mxGetImagData 这 两 个 函数 来 得 到 ,C 语 
言 对 这 些 类 型 的 数值 阵列 的 操作 同样 通过 操作 其 实 部 数据 区 指针 和 虚 部 数据 区 指针 。 

需要 注意 的 是 ,Matlab 数值 阵列 与 C 语言 数组 在 内 存 中 的 存储 方式 是 不 一 样 的 。Matlab 
数值 阵列 在 内 存 中 的 存储 方式 为 按 列 的 方式 存储 ,而 C 语言 数组 在 内 存 中 的 存储 方式 则 是 按 
行 的 方式 存储 。 因 而 , 当 Matlab 数值 阵列 大 于 1 维 的 话 , 如 果 此 时 采用 mxGetPr,mxGetRi、 
mxGetData 和 mxGetImagData 得 到 的 指针 来 操作 其 实 部 数据 和 虚 部 数据 ,那么 ,采用 int mx- 
CalcSingleSubscript 计算 每 个 元 素 相 对 于 第 一 个 元 素 存储 的 线性 偏 移 量 。 

举例 如 下 所 示 。 

/1w showmatrix.c 文件 内 容 * / 

间 include "mex.h 

井 include "matrix.h” 

void mexFunctionkint nlhs,mxArray * plhs[] ,int nrhs,const mxArray * prhs[]) 

本 

int hj,ks 
mwindex indexi 
double* pr= NULL; 
double* pi= NUUL 
size_t MIN; 
size_t ndimy 
mwsSize dims[2]; 
for(i=Oxi<nrhs:i++) 
{ 
放 ((mxlsDouble(prhs[ 门 ))&&(mxCGetNumberOfDimensions(prhs[ 门 ) == 2 
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} 


pr= mxGetPr(prhs[ 门 ); 
pi= mxGetPi(prhs[ 门 ); 


M= 


mxCGetM(prhs[ 门 ); 


N= mxGetN(prhs[ 门 ); 
ndim = mxCetNumberOfDimensions(prhs[ 门 ); 


mexPrintf(" 变量 % di\n ,iD 
for(j=05j<Mij++) 


人 { 


dims[0]=ji 
for(k=Osk<Nik++ ) 
{ 
dims[T=k 
index = mxCalcSingleSubscript(prhe[ 站 ,ndimvdims)， 





mexPrintf(” %6.2f," ,pr[index]); 


}》 


mexprintf(" %6.2f+ %6.2f," ,pr[index],piLindex])， 


}》 
mexPrintf(" \n" ); 


mexprintf(" 输 入 %d 个 变量 不 是 二 维 double 数值 御 列 ! \m ,iD 


实例 的 实行 结果 如 下 所 示 。 
六 a=rand(3,3)ib=rand(4,4);c=rand(5,5)+jv rand(5,5)ishowmatrix(avbyc); 


变量 0: 
0.21， 
0.84， 
0.63， 

变量 1， 
0.45， 
0.04， 
0.03， 
0.31， 


0.13， 
0.21， 
0.61， 


0.01， 
0.38， 
0.68， 
0.09， 


0.63， 
0.37， 
0.58， 


0.04， 0.02， 
0.61，0.19， 
0.61， 0.59， 
0.02， 0.06， 
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变量 2 
0.37 十 
0.63 十 
0.72+ 
0.69 上 + 
0.08+ 

> 


0.24j， 0.45+ 
0.05j， 0.44+ 
0.08j， 0.35+ 
0.64j， 0.15+ 
0.19j， 0.68+ 


0.84j， 
0.17j， 
0.TDi， 
0.99j， 
0.44ij， 


0.70+ 
0.73+ 
0.48+ 
0.55+ 
0.12+ 


0.34j， 0.45+ 
0.31j， 0.72+ 
0.37j， 0.89+ 
0.39j， 0.27+ 
0.59j， 0.25+ 


0.12i， 
0.04j， 
0.46j， 
0.87i， 
0.93j， 


3.9 稀 朴 数组 阵列 (Sparse Array) 


Matlab 的 Sparse 数组 与 一 般 的 数组 存储 方式 不 一 样 ,采用 Sparse 数组 可 以 使 零 元 素 个 
数 很 多 的 数组 占用 较 少 的 内 存 空间 。 在 Matlab 与 C 语言 混合 编程 时 ,Sparse 数组 用 参数 pr、 
pi\ir,jc 和 nzmax 来 描述 。 其 中 各 参数 的 意义 如 下 。 


1，Ppr 


double * pr 


2. pi 


doublex pi 


则 pi 为 空 。 
3.ir 


依次 存放 Sparse 数组 中 非 零 元 素 的 实 部 值 。 


mwIndex* ir 依次 存放 Sparse 数组 中 非 零 元 素 的 行 值 。 


4. jc 


mwIndex* jc 


最 后 一 个 索引 值 。 
假定 5X5 实数 矩阵 ,其 矩阵 元 素 的 分 布 如 图 3- 5 所 示 。 


如 果 Sparse 的 nzmax 一 12, 则 pr\ir 和 jc 的 分 布 如 图 3-6 


所 示 。 


存放 Sparse 数组 中 非 零 元 素 的 列 信息 。 其 数 
组 元 素 个 数 为 N+1(CN 为 Sparse 数组 的 列 数 ) 。 所 有 非 零 元 素 在 
pr\pi 和 ir 中 的 存放 顺序 同样 是 按 列 存放 的 。0 近 j 和 N 一 1 时 ， 
jc[ 记 代表 Sparse 数组 第 j 列 的 非 零 元 素 在 pr,\pi'\ir 中 的 第 一 个 索 
引 值 ,而 jc[j 十 1] 一 1 则 代表 第 j 列 的 非 零 元 素 在 pr`pi 和 ir 中 的 


0.87+ 0.26j， 
0.23+ 0.16i， 
0.80+ 0.87j， 
0.91+ 0.24j， 
0.23+ 0.65j， 


依次 存放 Sparse 数组 中 非 零 元 素 的 虚 部 值 。 如 果 数 组 的 所 有 元 素 为 实数 ， 





图 3-5 矩阵 元 素 分 布 图 


参照 图 3 -5 和 图 3 -6 给 出 从 jc\ir 和 pr 求 出 第 2 列 的 所 有 非 零 元 素 。 由 于 jc[1]= 0， 
je[2]==2, 则 ir[jc[1]:je[2] 一 菇 =ir[0:1] 为 第 2 列 的 所 有 非 零 元 素 , 即 第 2 列 的 非 零 元 素 为 
Sparse 矩阵 的 (1,2),(2,2) ,其 值 分 别 为 1 和 2。 这 样 ,用 Sparse 矩阵 表示 方式 就 可 以 将 一 个 
零 元 素 个 数 很 多 的 矩阵 用 一 种 节省 内 存 的 方式 保存 起 来 。 


S，nZzmax 


mwSize nzmax 
均 为 nzmax。 
下 面 是 一 个 显示 稀 朴 矩阵 内 容 的 实例 。 


/ x mxshowsparsematrix.c 文件 内 容 * / 


Sparse 中 可 以 存放 的 非 零 元 素 的 最 大 数目 ,其 中 pr,pi 和 ir 的 数组 大 小 
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注 : 

(D * 表 示 没 有 元 素 : 

2) 灰色 的 元 素 格 表示 有 元 素 ， 
但 是 其 值 对 当前 Sparse 和 矩阵 


无 意义 ; 
(3) 所 有 C 语 言 的 数组 从 0 开始 计数 





| | 
[| 
| 
| 
全 
| | 
[| 
本 
同 丁 汪 
[| 
[| 


图 3-6 Sparse 各 参数 的 元 素 分 布 图 


井 include "mex.h” 
#include "matrix.h” 


void showSparseMatrix(mxArray ” pa) 


{ 


ipa==NUUL) 


{《 


} 


returnt 


imxlsSparse(pa) ) 


{ 


mwindexw ir, * jc 
double* pr * pi 
size_t MIN 
int ij 
mwSize curColumNZnum= 0+/ * 每 列 的 非 零 元素 个 数 * / 
mwsSize nznum= 0:/* 已 知 的 非 零 元 素 个 数 * / 
mwsize nzmax = mxCetNzmax(pa) 
N= mxCetN(pa)， 
M= mxCGetM(pa); 
ir= mxGetir(pa); 
jc= mxGetjc(pa)y 
pr= mxCetpPr(pa)i 
pi= mxCetPi(pa); 
forGi=Oxi<Nii++) 
{《 
curColumNZnum=jc[i+ 们 -jc[D; 
while(curColumNZnum 一 0) 
{ 
放 pi==NUUL) 
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mexprintf"\t<<%d,%d> = %6.2Pn， 
i[nznum]+ 1:i+ 1,prLnznum]); 


mexPrintft"\t 一 %d,%d> =%6.2f +%6.2fhm 
inznum] + 1,i+ 1,prLnznum],pi[nznum])， 


mexPrintf("\t 输入 变量 非 称 疏 和 矩阵 ! \m" ); 


void mexFunctionint nihs,mxArray * plhs[] ,int nrhs,const mxArray * prhs[]) 
int i=0# 
for(i=Oki<nrhs:i++ ) 
{ 
mexPrintf( "第 %d 个 输入 参数 :\n 'i+ 1D; 
showSparseMatrix(prhs[ 门 )， 


上 
用 mex mxshowsparsematrix. c 编译 上 述 MEX 文件 ,并 采用 下 面 的 m Script 文件 测试 


mxshowsparsematrix 的 功能 。 


六 v=sign((rand(5,5) 一 0.8)); % 产 生 一 个 随机 答 阵 ,并 将 二 0.8 的 元 素 置 为 1 
六 v1= (v+abs(v))/2; 

六 [i,j,vnz]= find(v1):% 寻 找 v1 中 二 0 的 元 素 

六 v2 = sparse(i,j,vnz):% 构 造 稀 恼 矩阵 v2 

六 disp(v2) ;msshowsparsematrix(v2,v1);% 对 比 disp 函数 和 rmshowsparsematrix 的 功能 


测试 显示 的 结果 如 下 所 示 。 


《3,1) 1 
(12) 1 
(2,4) 
1 
1 





(3,5) 
(4,5) 
第 1 个 输入 参数 : 
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<2,2> = 1 
<4,2> = 1 
<13> = 1. 
<23> = 1 
<4,5> = 1 
第 2 个 输入 参数 : 

输入 变量 非 夭 疏 红 阵 ! 


ss883S 


六 


3. 10 ”Matlab 元 组 


Matlab 元 组 阵列 元 素 的 内 容 是 一 个 Matlab 阵列 ,对 Matlab 元 组 阵列 来 说 ,其 主要 操作 
是 用 mxGetCell 取得 Matlab 元 组 阵列 元 素 的 内 容 , 用 mxSetCell 设置 Matlab 元 组 元 素 的 内 
容 。 下 面 的 实例 演示 了 如 何 通过 调用 mxGetCell 函数 得 到 Matlab 元 组 阵列 的 内 容 并 显示 其 
类 型 。 


79# showcell.c 文 件 内 容 */ 
柯 include "mex.h” 
厅 include "matrix.h 


void printArrayClass(mxArray pa) 
{ 
ipa== NULL) 
{ 
mexpPrintf(" 空 "); 
retumt 
} 
switch(mxCetClassID(pa) ) 
{ 
case mxCELL_CLASS: 
{ 
mexpPrintf(" 元 组 阵列 ") 4 
break; 
} 
case mxSTRUCT_CLASS: 
人 
mexpPrintf( "结构 体 阵 列 " ) 
break; 
}》 
case mxCHAR_CLASS: 
{ 
mexpPrintf(" 字符 串 阵 列 ” )4 
break; 
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void mexFunction(int nlhs,mxArray * plhs[] ,int nrhsvconst mxArray * prhs[]) 


{ 


mexPrintf(" 还 辑 数值 阵列 ”4 
break; 
} 
case rmdDOUBLE_CLASS: 
{ 
mexpPrintf(" 双 精 度数 值 阵列 " )5 
break; 
} 
case mxSINGLE_CLASS: 
{ 
mexprintf(" 单 精 度数 值 阵列 " ); 
breaks 
了 
case mxINT8_CLASS: 
case mxINT16_CLASS， 
case mxINT32_CLASS: 
case mxINT64_CLASS， 
{ 





mexpPrintf(" 有 符号 整 型 数值 阵列 )# 
break; 


case mxUINT64_CLASS: 
Case rnxUINT8_CLASS: 
case mxUINT16_CLASS: 
case mxUINT32_CLASS: 
人 { 
mexPrintf(" 无 符号 整 型 数值 阵列 ")# 
break; 


mexPrintf(" 其 他 MATLAB 类 型 阵列 " ); 
break; 


mxArray * pa= NULL; 
mwsize cellINum=0y 


int ij 





for(i=Oii<nrhsii++ ) 
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pa=prhsD， 
if(mxlsCell(pa) ) 
{ 


cellNum = mxCetNumberOfElements(pa) ; 
mexPrintf( "第 %d 个 输入 变量 的 各 元 素 类 型 如 下 :\nm ,i+ 1D); 
for(j=0ijj 一 celtNumsj++ ) 
mexPrintf("\t 第 %d 个 元 素 是 :”,jD5 
printArrayClass(mxGetCellKpa,j)); 
mexprintfC"\n' ) 


mexPrintf( "第 %d 个 输入 变量 非 元 组 阵列 ! \n vi+ Di 


3.11 _ Matlab 结构 体 阵列 


结构 体 阵列 实际 上 一 个 结构 体 的 数组 ,数组 
的 每 个 元 素 是 相同 结构 的 结构 体 ,如 表 3 - 6 所 
" 列 。 如 图 3- 7 所 示 , 每 个 结构 体 元 素 由 结构 体 
域 构成 ,其 中 通过 域 号 (filed number) 或 者 域名 
《field name) 来 区 分 每 一 个 结构 体 域 。 结 构 体 域 
名 由 开发 者 指定 ,结构 体 的 域 号 根据 各 域 的 存储 
顺序 自动 分 配 , 第 一 域 的 域 号 为 0, 最 后 一 个 域 的 
域 号 为 M 一 1, 其 中 M 为 结构 体 元 素 总 的 域 的 个 
数 。 结 构 体 各 域 的 内 容 可 以 为 任意 Matlab 阵列 
类 型 。 下 面 的 实例 演示 了 如 何 遍 历 Matlab 结构 
体 阵 列 并 显示 其 类 型 。 






fieldname 





Fieldnum:1 

















内 fieldname 
表 3-6 ”Matlab 结构 体 阵 列 存储 示意 图 1 生 | 
索引 1 | :| N 
内 容 STRUCT | STRUCT| 二 SROcT 图 3-7 Matlab 结构 体 结构 示意 图 














/sx showstruct.c< 文 件 内 容 */ 

井 include "mex.h 

井 include "matrix.h” 

井 define _MAX_STRUCT_FIELD_NUM 40 
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void printArrayClass(rmeArray * pa) 
人 


认 pa== NULD 
{ 
mexprintf(" 空 "); 
retumy 
} 
switdh(mxCetClassIiD(pa) ) 


人 
case mxCELL_CLAS5， 
! 
mexPrintf( "元 组 阵列 "); 
break; 
}》 
case mxSTRUCT_CLASS: 
mexprintf( "结构 体 阵 列 ")# 
break: 
} 
case mxCHAR_CLASS: 
{ 
mexpPrintf(" 字符 事 阵列 "4 
breaks 
case rmLOGICAL_CLASS: 
{ 
mexpPrintf(" 逻辑 数值 阵列 )# 
breaky 
)} 
case mxDOUBLE_CLASS: 
{ 
mexPrintf(" 双 精度 数值 阵列 ) 
breaki 
} 
Case mxSINGLE_CLASS: 
mexpPrintf(" 单 精度 数值 阵列 ”4 
break; 
} 
case mxlINT8_CLASS: 
case mxINT16_CLASS: 
case mxINT32_CLASS: 
case mxINT64_CLASS: 
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mexprintf(" 有 符号 整 型 数值 阵列 " )# 
break; 


case mxUINT64_CLASS: 
case mxUINT8_CLASS: 

case mxUINT16_CLASS: 
case mxUINT32_CLASS: 


mexprintf(" 无 符号 整 型 数值 阵列 ); 
break; 


mexpPrintf(" 其 他 MATLAB 类 型 阵列 "); 
break; 


void mexFunctionkint nlhs,mxArray * plhs[] ,int nrhs,const mxArray * prhs[]) 
{ 

mxArray w pa= NULL; 

int ij 

char * fieldname= NULL; 

for(i=Oki<nrhsii++ ) 

{ 

放 mxlsStruct(prhs[ 门 )) 
{ 
mexprintf(" 第 %d 个 输入 变量 的 各 域 类 型 如 下 :Nm 'i+ 1 
for(j=0:j<_MAX_STRUCT_FIED_NUMij++ ) 
{ 
fieldname = mxCetfieldNameByNumber(prhs[ 门 ,)); 
放 fieldname==NULL) 
{ 
break 
四 

mexPrintf(" \t%s:” ,fieldname); 
printArrayClass(mxGetFieldByNumber(prhs[ 门 ,0,j))， 
mexprintfC"\n' ) 5 
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mexPrintf( "第 %d 个 输入 变量 非 结构 体 阵列 ! \m 'i+ 1D); 


】} 
实例 执行 结果 如 下 所 示 。 


六 a=rand(1,Di 
b=' 哈尔滨 工程 大 学 
c=struct(inamel'rand(3) ,name2',ynothing); 
d= (abycjy 
e= struct(rand1' ,aiuniversity' ,bstruct'cy'cell ,d); 
showstruct(e'a) 

第 1 个 输入 变量 的 各 域 类 型 如 下 : 
rand1: 双 精度 数值 阵列 
university: 字符 囊 阵 列 
struct: 结 构 体 阵列 
cell, 双 精度 数值 阵列 

第 2 个 输入 变量 非 结 构 体 阵列 ! 

六 


3.12 Matlab 字符 阵列 


Matlab 字符 阵列 的 的 基本 元 素 是 类 型 mxChar,Matlab 的 字符 类 型 的 mxArray 都 是 用 
mxChar 的 字符 类 型 ,而 不 是 C 语言 的 char 型 。Matlab API 将 mxChar 定义 为 2 字 节 的 无 符 
号 整 型 ,这 样 可 以 方便 的 处 理 UNICODE 字符 。 因 而 在 用 C 语言 编写 MEX 文件 源 代码 时 ,如 
果 要 从 Matlab 字符 类 型 的 mxArray 中 导出 字符 串 的 话 , 需 要 注意 的 是 mxArray 使 用 的 是 
mxChar 类 型 的 字符 ,因而 需要 分 配 比 char 多 一 倍 的 内 存 空间 。 如 下 面 的 例子 mxshow- 
String. cy 

V/* rpshowstring.c 文件 内 容 */ 

间 include "mex .hr 

void mexFunction(Cint nlhs,mxArray * plhs[] ,int nrhsyconst mxArray * prhs[]) 

{ 

char x buf; 
size_t buflen; 
inti=0y 


首 C! mxisChar(prhs[0]) || (mxGetM(prhs[O]) ! = 1) 
{ 
mexErrMsgTxt(" 输 入 数组 必须 是 一 维 字符 率 ")， 
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for(i=Oii<nrhssi++) 
{ 
旋 mxlsChar(Cprhs[ 口 ))》 
{ 
buflen = mxCetNumberOfElements(prhs[ 门 ) * sizeofCdhar) + 1; 
buf = mxMalloc(buflen); 
mxGetString(prhs[ 门 ,buf,buflen) 
mexPrintf( "输入 %d 个 字符 阵列 为 : %sNn ,ivbupi 
mxFree(buf ; 


mexprintf(" 第 %d 个 输入 阵列 不 是 字符 类 型 ! \m ); 


} 

实例 执行 结果 如 下 所 示 。 

六 mxshowstring('stringT' ,string2'，'string3'rand(3,3) ,string4') 
输入 0 个 字符 阵列 为 ; string1 

输入 1 个 字符 阵列 为 string2 

输入 2 个 字符 阵列 为 : string3 

第 5 个 输入 阵列 不 是 字符 类 型 1 

输入 4 个 字符 阵列 为 。 string4 

六 


3.13 ”Matlab mat API 函数 


MAT 格式 的 文件 是 Matlab 的 文件 格式 ,如 果 外 部 数据 与 Matlab 进行 复杂 格式 的 数据 
交换 的 话 ,MAT 文件 是 最 好 的 选择 。Matlab 提供 了 一 系列 进行 MAT 操作 的 API 函数 ,这 些 
API 函数 都 以 mat 开头 ,被 称 为 mat 函数 。 现 将 其 中 的 函数 的 使 用 方法 一 一 介绍 如 下 所 述 。 

1，int matClose(MATFile * mfp) ; 
函数 功能 : 

关闭 MAT 文件。 
参数 说 明 : 

MATFile * mfp 要 关闭 的 MAT 格式 文件 指针 。 

2.int matDeleteVariable( MATFile * mfp,const char * name) ; 


函数 功能 : 
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删除 MAT 文件 中 名 称 为 name 的 变量 。 
参数 说 明 : 

MATFile * mfp MAT 文件 指针 。 

const charx name 要 删除 的 变量 名 称 。 

3. char * * matGetDir(MATFile * mfp ,int * num) ; 
函数 功能 : 

得 到 MAT 文件 的 变量 列表 。 
参数 说 明 : 

MATEFile* mfp MAT 文件 指针 。 

intx* num 整 型 变量 指针 ,用 以 返回 MAT 文件 中 的 变量 个 数 。 
附加 说 明 : 

matGetDir 返回 一 个 MAT 文件 中 的 Matlab 变量 列表 ,其 中 每 个 变量 名 称 的 最 大 长 度 为 
mxMAXNAM( 在 matrix. h 中 定义 ,其 值 默认 为 64) 。 如 果 函 数 调用 失败 ,此 时 *num 一 一 1， 
并 且 返 回 NULL 值 。 如 果 MAT 文件 中 不 包含 任何 Matlab 变量 , *num=0。 下 面 的 实例 就 
是 利用 matGetDir 函数 来 显示 输入 MAT 文件 中 存储 的 变量 名 称 。 

/wmatGetDir,c 文 件 内 容 */ 

划 include "mex.h” 

#include math 


int listvariable(const char ”file) 
{ 

MATFile * pmat; 

const char w * diry 

const char * names 

int ndir; 


int 和 


/# 打开 MAT 文 件 */ 

pmat= matOpen(file "mr); 

if (pmat == NUUL) 
mexPrintf(" 打开 文件 :%s 出 错 ! \n file); 
retumC1D) 


/# 得 到 MAT 变 量 的 目录 列表 关 7 
dir= (const char * * )matCetDir(pmatv&ndiD 
if (dir== NULL) 
人 
mexPrintf(" 读 取 文件 %s 的 变量 列表 出 错 ! \m ,file); 


returm(1)3 
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mexPrintf( "MAT 文件 %s 中 的 变量 如 下 :\m ,file); 
for (i=0gi<ndiry i++) 
{ 
mexPrintf(" %sNm” ,dir[ 门 )， 


} 
mxFree(diD 


/1w 关闭 MAT 文 件 .*/ 
证 (matClose(pmat) ! = 0) 
{ 
mexprintf(" 关 闭 文件 %s 出 错 ! \n" ,file)， 
retum(TD， 
} 
return(0); 


void mexFunction(int nihs,mxArray * plhs[] ,int nrhs,const mxArray * prhs[]) 
{ 

int i=0; 

char * buf= NULL 

buff = mxCalloc(200 ,sizeof(char)) 

for(i=Oxi<nrhsii++ ) 

{ 


全 mxlsCharKprhs[0])) 
{ 
mxCetstring(prhs[ 门 ,buff,200)， 
listvariableCbufp ; 
} 
else 


mexPrintf(" 输入 的 第 %d 个 变量 不 是 字符 类 型 阵列 ! \n )# 


》 
mxFree(buff); 
水 


该 MEX 文件 的 测试 程序 如 下 所 示 。 


六 clear all 
六 mex matGetDir. c 
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ya=rand(1,1);b= magic(5);c= nothing'; 
六 save 'abc.mat'imatCetDir('abc.mat') 


MAT 文件 abc. mat 中 的 变量 如 下 : 


六 


4. FILE x* matGetFp(MATFile x* mfp) ; 
函数 功能 : 

得 到 MAT 文件 的 C 语言 类 型 文件 指针 (FILE * ) 。 

S，mxArray * matGetNextVariable( MAIFile * mfp,const char * x* name) ; 
函数 功能 : 

得 到 MAT 文件 的 下 一 个 Matlab 阵列 变量 。 
参数 说 明 : 

MATFile * mfp MAT 文件 指针 。 

const char* * name 用 于 返回 MAT 文件 中 文件 名 的 字符 串 指针 。 
附加 说 明 : 

此 函数 必须 紧 接 着 matOpen 函数 调用 成 功 之 后 使 用 , 如 果 在 matOpen 函数 和 
matGetNextVariable 函 数 之 间 还 有 另外 的 mat- 函 数 的 调用 ,否则 返回 的 值 是 不 可 预测 的 。 另 
外 ,使 用 此 函数 时 ,需要 用 mxDestroyArray 释放 得 到 Matlab 变量 mxArray 指针 所 指向 的 内 
存 空 间 。 

下 面 的 实例 就 是 用 matGetNextVariable 函数 来 显示 输入 MAT 文件 中 变量 的 维 数 信息 。 

7 matGetNextVariable.c 文 件 内 容 */ 

井 include "mex.h 

间 include "mat.h 


int listvariabledims(const char file) 
{ 

MATFile * pmat; 

const char *_ name= NULL; 

int 四 

mxArray * pa= NULL; 

mwsSize ndims 


mwsize * dims 


/x* 打开 MAT 文 件 */ 
pmat = matOpendfile mr ); 
放 (pmat== NUUD) 

{ 
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mexPrintf(" 打开 文件 :%s 出 错 ! \m ,file); 
retum(TD 


mexPrintf("MAT 文件 %s 中 的 变量 及 信息 如 下 :\n ,file); 
/# 得 到 MAT 文件 中 的 各 个 变量 * 
pa= matCetNextVariable(pmat'&name) ; 
while(pal = NULL) 
{ 


mexPrintf( "变量 %5s “name)5 

dim = mxGetDimensions(pa); 

ndim = mxCetNumberOIDimensions(pa)， 
mexPrintf(" 维 数 信 
for(i=O:i<ndim- 15i++) 








mexpPrintf(” % dx" ,dimC 门 )， 


} 
mexprintf(" %dNn” ,dim[ 门 ): 
mxDestroyArray(pa) 
pa = matCetNextVariable(pmat,&name); 


上 
1/ 关闭 MAT 文 件 . = / 
放 (matClose(pmat) ! = 0) 
{ 
mexpPrintf( "关闭 文件 %s 出 错 ! \m ,file); 
retum(1D 


returmn(0) 


void mexFunctionk int nlhs,mxArray * plhs[] ,int nrhsvconst mxArray * prhs[]) 
int i= 0* 
char * buff= NULL; 
buff= mxCalloc(200,sizeofCchar)); 
for(i=O:i<nrhssi++) 





放 mxlsChar(prhsLO])) 
mxCetString(prhs[ 丫 ,buff.200); 
listvariabledims(bufp ， 


else 
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mexPrintf( "输入 的 第 %d 个 变量 不 是 字符 类 型 阵列 ! \m ); 


mxFree(bufp ， 
} 


测试 程序 及 输出 结果 如 下 所 示 。 


六 a=rand(1,1)tb=magic(5)4c= Inothing':d= favb,ciy 
六 save abcd, matimatgetnextvariable('abcd.mat)， 


MAT 文件 abed. mat 中 的 变量 及 信息 如 下 : 

变量 a 维 数 信息 :1x1 

变量 d 维 数 信息 :1x3 

变量 < 维 数 信息 :1x7 

变量 b 维 数 信息 :5x5 

交 

6.mxArray * matGetNextVariableInfo( MATFile * mfp,const char * * name) ; 
函数 功能 : 

得 到 MAT 文件 中 变量 的 mxArray 指针 ,但 此 指针 中 只 包含 Matlab 阵列 变量 的 头 信息 。 
参数 说 明 : 

MATFile* mfp MAT 文件 指针 。 

const char* * name 用 于 返回 MAT 文件 中 文件 名 的 字符 串 指针 。 
附加 说 明 ， 

返回 Matlab 阵列 的 mxArray 变量 的 pr pi\ir 和 jc 域 均 为 空 。 

7. mxArray * matGetVariable( MATFile * mfp ,const char * name) ; 
函数 功能 ， 

从 MAT 文件 读 取 指定 名 字 的 变量 。 
参数 说 明 : 

MATFile * mfp MAT 文 件 指针 。 

const charx name 变量 名 称 。 
附加 说 明 : 

注意 释放 返回 的 mxArray 指针 所 指向 的 内 存 。 

8. mxArray * matGetVariableInfo( MATFile * mfp,const char * name) ; 
函数 功能 : 

从 MAT 文件 读 取 指定 名 字 的 变量 ,只 是 此 函数 返回 mxArray 变 基 只 变量 的 头 信息 , 即 
mxArray 变量 的 pr、pi\ir 和 jc 域 均 为 NULL。 

9. MATFile * matOpen{( const char * filename,const char * mode) ; 
函数 功能 : 
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打开 一 个 MAT 文件 。 
参数 说 明 : 
const charx filename MAT 文 件 名 ， 
const charx mode 打开 MAT 文件 的 选项 。 
附加 说 明 : 
matOpen 可 以 采用 不 同 的 选项 ,如 表 3 -7 所 列 。 
表 3-7 matOpen 函数 的 选项 及 其 含义 





选项 | 言 义 
『 以 只 读 方 式 打开 MAT 文件 
上 以 更 新 文件 的 方式 打开 MAT 文件 ,可 以 读 写 文件 。 如 果 要 打开 的 MAT 文件 不 存在 ,不 创建 新 的 文件 


以 只 写 的 方式 打开 文件 ,如 果 存 在 一 个 与 待 待 开 的 文件 的 文件 名 相同 的 文件 , 则 覆盖 元 文件 并 副 除 原文 件 的 
内 容 


4 创建 一 个 与 Marlab 4. 0 及 其 以 前 所 有 的 Matlab 版 本 兼容 的 MAT 文件 


采用 此 选项 创建 的 Matlab MAT 文件 采用 本 机 的 默认 的 字符 集 , 而 不 是 默认 情况 下 采用 UNICODE 字符 集 
的 MAT 文件 。 采 用 此 选项 创建 的 MAT 文件 只 能 被 Matlab 6. 5 以 后 的 Matlab 读 取 


wz 采用 此 选项 创建 的 Matlab MAT 文件 采用 压缩 格式 存储 数据 
































10. int matPutVariable( MATFile * mfp ,const char * name,const 
mxArray* mp) ; 
函数 功能 : 
向 MAT 文件 中 写 人 变量 。 
参数 说 明 : 
MATFile* mfp MAT 文件 指针 。 
const char* name ”要 写 和 的 变量 的 名 称 。 
const mxArray* mp ”要 写 和 人 的 变量 的 mxArray 指针 。 
参数 返回 值 ; 
函数 调用 成 功 返 回 0, 和 否则 返回 非 零 值 。 
11， int matPutVariableAsGlobal( MATFile * mfp ,const char * name， 
const mxArray * mp) ; 
函数 功能 : 
向 MAT 文件 写 人 变量 ,并 使 此 变量 具备 全 局 工作 空间 (global workspace) 变 量 特性 。 
参数 说 明 : 
MATFile* mfp MAT 文件 指针 。 
const charx* name ”要 写 人 的 变量 的 名 称 。 
const mxArray * mp ”要 写 人 的 变量 的 mxArray 指针 。 
参数 返回 值 : 
函数 调用 成 功 返回 0, 否则 返回 非 零 值 。 
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3.14 Matlab API 函数 操作 的 实例 


3.14.1 更 改 Matlab 数值 阵列 的 维 数 


要 改变 mxArray 数组 的 各 维 数 的 大 小 ,对 于 普通 的 数组 而 言 , 直 接 改变 相应 mxArray 的 
维 数 信息 数组 即 可 。 对 于 稀 芷 数组 ,情况 就 比较 复杂 了 ,需要 重新 计算 并 改变 相应 mxArray 
的 ir 和 jc 数组 ,下 面 给 出 的 例子 mxsetdimensions.e 只 针对 二 维 稀 朴 矩阵 进行 处 理 , 其 源 代码 
如 下 所 示 。 


/1 * mxsetdimensions.c 文件 内 容 * / 
#include 一 string.h> 
井 include "mex.h 


void mexFunctiontint nlhs,mxArray * plhs[] ,int nrhs,const mxArray * prhs[]) 
{ 


mwsSize number_new_dims,number_input_elements,number_new_elements, 
mwsize * new_dimsy 


/1*# 检查 输入 参数 的 个 数 * / 
ifCnrhs 一 3) 
{ 
mexErrMsgTxt(" 至 少 殴 要 三 个 输入 参数 \m ); 
} 
inlhs > 1 人 
mexErrMsgTxt(" 输出 参数 太 多 \n ); 
}》 
number_new_dims=nrhs 一 1; 
并 (mxlsSparse(prhs[0]) && number_new_dims ! = 2) 
1 
mexErrMsgTxt(" 不 支持 多 维 稀 居 从 阵 Nm )# 
} 


number_input_elements = mxCetNumberOfElements(prhs[0]); 


/* 创建 新 的 维 数 信息 数组 * / 
new_dims = mxMalloc(number_new_dims * sizeof( * new_dims)); 


number_new_elements= 1; 
for (i=0i i< number_new_dims:i++ ) 
{ 


const mxArray * pa 
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pa=prhs[i+ 1]; 
这 mxGetNumberOfElements(pa) ! = TD) 
{ 
mxFree(new_dims); 
mexErrMsgTxt(" 维 数 大 小 必须 为 1* 1 标量 \m ); 
】} 
new_dims[ 门 = (int)mxCGetscalar(pa)， 
number_new_elements = new_dims[ 门 * number_new_elements; 
)} 
if (number_new_elements ! = mumber_input_elements) 


{ 
mxFreeCnew_dims); 
mexErrMsgTxt(" 改变 后 的 数组 个 数 必 须 和 输入 数组 的 个 数 相同 .\n” )1 


plhs[0] = mxDuplicateArray(prhs[0])， 


/w 针对 Sparse 数组 和 普通 数组 分 不 同情 况 进行 处 理 ”/ 
并 (mxlsSparse(plhs[O])) 
{ 
Size _t mold; /w 原来 的 行 数 * / 
size t noldy /* 原来 的 列 数 * 1/ 
mwlndex * jcold; / * 原来 的 jc 数组 * / 
mwlndex* irf /* 这 数组 */ 
size_t mnewi /* 新 的 行 数 */ 
size _t nnewi /* 新 的 列 数 */ 
mwindex* jcnewi /* 新 的 jc 数组 */ 
int j,offset,offset1; 


jcnew = ((int * )mxCallocCnew_dims[1] + 1vsizeof(inD ))， 
mnew= new_dims[O]; 

nnew= new_dims[1]; 

mold= mxGetM(plhs[0]); 

nold= mxCetN(plhs[0])， 

jcold= mxCetjc(Cplhs[0])， 

ir= mxGetlr(plhs[0])， 


交 本 和 证 半 六 六 拓 六 计 半 半 半 半 阁 生 半 拓 当 产 条 和 放 半 类 亲 对 新 亲 和 亲 新 半 / 
/* 将 输入 数组 看 做 一 维 线性 数组 ,并 改变 ix / 
for (i= 1,offset= mold; i 一 nold; i++ ,offset+ =mold) 
{ 
for (j=jcold[D; j 一 jcoldLi+ 1 j++》 
{ 
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iD + = offset; 


}》 


1/* 根据 新 的 行 数 和 列 数 信 息 , 重 新 改变 if 和 设置 jcnew* / 
j= 0,offset=mnew 一 1,offset1=0;i 一 jcold[nold]; 





for (i= 
{ 
首 (Ci 癌 > offset 
人 
jcnew[++ 日 = 
offset + = mnewi 
offset1 + = mnewi 


else 


ii++]- = offset1; 


/1*# 填充 剩余 的 jcnew 数组 元 素 为 Sparse 数组 非 零 元 素 的 个 数 */ 
for (i++iji<= nnewi i++) 
{ 
jcnew[ 门 =jcoldLnold]， 
} 


mxFree(mxGetjc(plhsLO]))# 
mmxSetjc(plhs[O] ,jcnew) 
mxSetM(plhs[O] ,mnew); 
mxSetN(plhs[O] ,nnew)， 


else 
mxSetDimensions(plhs[0] ,new_dims,number_new_dims); 


mxFree(new_dims) 

)}》 

为 了 说 明 mxArray 为 稀 朴 数组 时 候 的 维 数 大 小 改变 的 操作 过 程 ,下 面 以 一 个 6X6 的 稀 
朴 矩 阵 的 维 数 大 小 由 6X6 改变 为 4X9 的 实例 来 说 明 其 过 程 。 此 6X6 稀 朴 矩阵 的 非 零 元 素 
分 布 如 图 3- 8(a) 所 示 。 

而 ir 和 jc 在 操作 过 程 中 的 变化 如 图 3 - 8(b) 所 示 , 其 中 irold 和 jcold 分 别 为 输入 稀 朴 矩 
阵 的 ir 和 jc,ir 为 将 输入 稀疏 垂 阵 看 做 一 维 线性 数组 的 时 候 的 ir 的 值 ,irnew 和 jcnew 为 根据 
输入 参数 改变 以 后 的 ir 和 jc。 上述 操 作 过 程 的 Matlab 测试 代码 为 : 
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Sa= zeros(6,6); 

sa(3,1) = 1;sa(1,2)=1;sa(6,2)= 1;sa(5,6)=1; 
s= sparse(sa)4 

newsa = mxsetdimensions(s,4,9)3 


irold | jcold 记 | imew | jcnew | 索引 
2 |o 2 





















































(a) 6X6 稀 殖 矩 阵 的 非 零 元 素 分 布 (Cb) ir 和 jc 在 操作 过 程 中 的 变化 


图 3-8 mxsetdimensions 对 稀疏 矩阵 的 操作 过 程 


3.14.2 分 析 并 显示 Matlab 阵列 的 内 容 


通过 Matlab 提供 的 以 “mx" 开 头 的 函数 及 Matlab 阵列 的 mxArray * 类 型 指针 ,可 以 得 
到 Matlab 阵列 的 全 部 信息 。 下 面 的 实例 介绍 了 用 “mx" 开 头 的 函数 分 析 Matlab 元 组 阵列 
(函数 analyze_cell) .结构 体 阵 列 ( 函 数 analyze_structure) 字符 串 阵列 (函数 analyze_string)、 
稀 梳 矩阵 阵列 (函数 analyze_sparse) , 单 精度 数值 阵列 (函数 analyze_single) 和 双 精 度数 值 阵 
列 ( 函 数 analyze_double) 的 方法 。 本 例 通过 mxGetClassID 函数 得 到 输入 Matlab 阵列 的 类 
型 ,然后 再 调用 相应 的 analyze_XXXX 分 析 函 数 分 析 Matlab 阵列 的 基本 属性 并 显示 其 内 容 。 
读者 可 以 参照 本 例 的 做 法 ,完成 Matlab 整 型 数值 阵列 的 分 析 。 本 实例 的 程序 代码 如 下 
所 示 。 

/wshowarray.c 文 件 内 容 "/ 

## include 一 stdio.h> 

## include 一 string.h> 

井 include "mex.h” 


void display_subscript(const mxArray * array_ptrymwlndex index): 
void Bet_characteristics(const mxArray 。 * array_ptr) 
mxClassID 。 analyze_class(const mxArray * array_ptrD) 5 


/Vs# cell 数组 分 析 函 数 = / 
static void analyze_cell(const mmxArray * cellLarray_ptr) 
{ 
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mwSize totaL_num_of_cells; 
mwindex index; 
const mxArray * celLelement_ptr 


total_num_of _celks = mxGetNumberOfElements(cellL_array_ptD ; 


mexPrintf(" Cell 数组 的 元 素 个 数 = %dhNn ,total_num_of_cells); 
mexPrintf("\n” )， 


for (index= 0; index 一 total_num_of_cellsy index++ ) 

{ 
mexPrintf(" \nNnNtNt 元 组 的 元 素 为 “)4 
display_subscript(celL_array_ptrvindex); 
mexpPrintf("\n” )， 
celLelement_ptr = mxCetCell(celLarray_ptrvindex)， 
if (celLelementL_ptr== NUUL) 
{ 

mexPrintf("\t 空 元 组 \n" )# 


mexPrintf(” 





Bet_characteristics(cell_element_ptD 
analyze_class(celLelement_pt)， 
mexPrintf(" \n” ) 


mexPrintf(" \n" )# 


static void analyze_structure(Const rnxArray * structure_array_ptr) 
{ 

mwsSize totalLnum_of_elements; 

mwlndex index; 

int number_of_fields ,field_index; 

const char 。 * field_name 

const mxArray * field_array_ptr 


mexPrintf("\n” ) 5 
total_num_of_elements = mxCetNumberOfElements(structure_array_ptrD) 5 


number_of_fields = mxCetNumberOffields(structure_array_ptD; 


/*# 遍历 结构 体 数组 中 的 所 有 结构 体 * / 
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for (index=0; index< 一 total_num_of_elements; index++ ) 人 


/V# 允 历 当前 结构 体 的 所 有 域 * / 
for (field_index= 0; field_index< 一 number_of_fields; field_index++ ) 
mexPrintf(" \nNt\t ) 
display_subscript(structure_array_ptryindex); 
field_name = mxCGetFieldNameByNumber(structure_array_ptr， 
field_index); 

mexPrintf(”. % Sn” ,field_name); 

field_array_ptr = mxGetFieldBYNumber(structure_array_ptr， 
index， 
field_index) 

if (field_array_ptr== NULL) 

{ 

mexpPrintf(" NtEmpty Field\n” ) 


1 mexPrintf(" 一 
Bet_characteristics(field_array_ptrD; 
analyze_classCfield_array_ptD， 

| mexprintft"\n ) 





mexPrintf(" \n\m )， 


/+# 字符 事 数 组 分 析 函 数 * / 
static void analyze_string(const mxArray * string_array_ptm) 
{ 
char wy buf 
mwsize number_of_dimensions 
const mwSize 。 # dimsy 
mwsize 。 buflen ,dpagey 
mwsize total_number_of_pageselements_per_page,nStringCetflag: 


/rw 分 配 待 转换 字符 事 需 要 的 空间 * / 
buflen = (mxGetNumberOiElements(string_array_ptr) + 1) * sizeof(mxChar); 
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buf = (char * )mxCalloc(buflen,sizeof(char)); 


printf(" 1) 
放 (CnStringCetflag = mxCetString(string_array_ptrybuf,buflen)) ! = 0) 
{ 
inStringCetflag== 1) 
{ 
mexErrMsgTxt( "分配 的 字符 转换 空间 不 足 ! \m ); 
//mexWarnMsgTxt(" 分 配 的 字符 转换 空间 不 足 ! \m )# 


else 


mexErrMsgTxt(" 输入 的 数组 不 是 字符 数组 ,无 法 转换 ! \m ) 4 
} 


returmy 


printf("27)1 
dims= mxCetDimensions(string_array_ptD 
number_of_dimensions = mxCetNumberOIDimensions(string_array_ptn， 


/* 计算 字符 囊 数 组 每 页 的 字符 个 数 * / 
elements_per_page= dims[0] * dims[1]; 


/+# 计算 字符 串 数 组 页 数 总 和 * / 
totalL_number_of_pages= 1; 
for (d= 2; d<number_of_dimensionsy d++ ) 
{ 

total_number_of_pages * = dims[d]， 


printf("3" 3 


for (page= 0; page 一 total_number_of_pages; page 二 十 
{ 


mwSize row; 


for (row=0; row<dimsL0]; row++ ) 

人 { 
mwSize columni 
mwindex index = (page * elements_per_page) + rowi 
mexPrintfC"\t" ) 4 
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display_subscript(string_array_ptrvindex); 
mexprintf(”") 5 





for (column=0; column 一 dims[1]; column++ ) 
{ 
mexPrintf(”%c" ,bufLindex])， 
index + = dims[0]; 
上 
mexPrintf(" \n" ) 


上 


printf("4") 4 


/1* 分 析 攻 欧 数 组 (Sparse Array) 函 数 */ 
static void analyze_sparse( const mxArray * array_ptr) 





{ 
double  * pry * pi 
1 mwilndex riryjci 
mwSize colvtotal=0i 
mwlndex starting_row_index,stopping_row_indexvcurrent_row_index 
， mwSize my 


1/ * Get the starting positions of all four data arrays. * / 
pr= mxGetPr(array_ptr 

pi= mxCGetPi(array_ptr)， 

ir= mxGetlr(array_ptDi 

jc= mxGetjc(array_ptD; 





7 w Display the nonzero elements of the sparse array- * / 
n= mxGetN(array_ptD， 
for (col=0y col<ns col++) 
和 
starting_row_index= jc[coD]， 
stopping_row_index= jc[col+ 1]; 
if (starting_row_index== stopping_row_index) 
{ 
continues 


else 


for (current_row_index= starting_row_index; 
current_row_index 一 stopping_row_index 
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current_row_index++ ) 


诈 (mxlsComplex(array_ptrD) ) 
{ 


mexPrintf" \t(%d,%d)=%8g+%giNn 
icurrent_row_index]+ 1， 
col+ 1,pr[totaD] ,pi[total++ ])， 


else 


mexprintf("\t(%d,%d) = %BgNn ifcurrent_row_index]+ 1， 
col+ 1,prLtotal++ ])4 


/* 单 精度 型 数组 的 分 析 函 数 * / 
static void analyze_single(const mxArray * array_ptr) 
{《 
float * pr * pis 
mwsize 。 total_num_of_elements; 
mwilndex index 


pr= (float * )mxCetData(array_ptr) 
pi= (float * )mxCetlmagData(array_ptD) 1 
total_num_of_elements = mxCetNumberOfElements(array_ptrD) 


for (index= 0; index 一 total_num_of_elements; index++ ) 
人 
mexprintf(" \t")， 
display_subscript(array_ptr,index); 
论 (mxlsComplex(array_ptr) ) 
{ 
mexprintf("= %B + %giNn ，* pr++，*# Pi+) 


mexPrintf(" = %BNn" ，* pr+ 十 ) 
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/* 双 精 度 型 数组 的 分 析 函 数 * / 

static void analyze_double(const rmxArray * array_ptr) 
double * pr * pis 
mwsize total_num_of_elements; 
mwlndex indexs 


pr= mxCGetPr(Carray_ptD 
Pi= mxGetPiCarray_ptrD) 
total_nurm_of_elements = mxCetNumberOfElements(array_ptrD); 


for (index= 0; index 一 total_num_of_elements; index++ ) 
{ 
mexPrintf( "Nt ) 
display_subscript(array_ptrvindex)， 
放 (mxlsComplex(array_ptr) ) 


mexPrintf("= %B + %BNn ，* pr++，* pi++) 
else 


mexpPrintf(" = %BNn ，* Pr 二 十 )3 


)} 


static void tryityouself() 
{ 
mexpPrintf(" 请 参考 single 数组 的 分 析 方 法 \m' ); 


/* 所 有 数值 (numeric) 类 型 数组 分 析 函 数 的 统一 入 口 */ 
static void analyze_full(const mxArray * numeric_array_ptr) 
mxClassID ”category; 
category = mxGetClassID(numeric_array_ptD， 
Switch (category) 
{ 
case mxINT8_CLASS:， tryityouselfO) ，。 break; 
case mxUINT8_CLASS: tryityouself() ;break 
case mxINT16_CLASS: tryityouself(); break 
case mxUINT16_CLASS: tryityouself() ;break 
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case mxINT32_CLASS: tyityouself() breaki 

case mxUINT32_CLASS:， tryityouself(); break; 

case mxSINGLE_CLASS。 analyze_single(numeric_array_ptD ; breaks 
case mxDOUBLE_CLASS: analyze_doubleCnumeric_array_ptD ;breaki 


/* 显示 响应 元 素 的 下 标 ,输入 的 index 是 将 数组 看 做 一 维 线性 的 形式 的 形式 下 给 出 的 */ 
void display_subscript(const mxArray * array_ptrymwindex index) 
《 

mwsSize inner,subindex,total,d,qnumber_of_dimensions; 

mwSize # subscript; 

const mwSize * dimss 


number_of_dimensions = mxGetNumberOfDimensions(array_ptD; 
subscript = mxCalloc(number_of_dimensions,sizeof(mwsSize)) 
dims= mxCetDimensions(array_ptrD); 





mexPrintf("(") 
subindex= indexy 
for(d= number_of_dimensions-1; d<<=0;d- 一 ) 
{ 
for (total= 1,inner=0; inner 一 dy inner++ ) 
{ 


total * = dimsLinner] 


subscript[d] = subindex / total; 
subindex= subindex % total; 
Verifkd 一 = 0) 


)} 7/ 


for (q= 0; q<number_of_dimensions 一 1; q++ ) 
人 
mexPrintf(" % d," ,subscriptLq] + Di 
上 
mexPrintf(" % d)" ,subscriptLnumber_of_dimensions 一 1] + 1) 


mxFree(subscript) * 
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/* 分 析 mxArray 的 各 维 数 大 小 ,类 型 等 特征 * / 
void getcharacteristics(const mxArray * array_ptr 


人 


const char # names 
const char *# class_names 
const mwsize * dimsi 


char * shape_string; 
char 。 * temp_string; 


mwSize 四 
mwSize number_of_dimensions; 
Size_t length_of_shape_string; 


/# 维 数 及 各 维 数 的 大 小 * / 
number_of_dimensions = mxGetNumberOfDimensions(array_ptD; 
dims = mxGetDimensions(array_ptrD); 


/w 多 分 配 用 于 显示 的 字符 囊 是 为 了 各 个 维 数 之 问 用 X 相连 * / 
shape_string = (char * )mxCalloc(number_of_dimensions * 3,sizeof(char)); 
shape_string[0] = \0'; 

temp_string = (char * )mxCalloc(64,sizeof(char))# 


for (c=0; <c<<number_of_dimensions; c++ ) 
{ 
sprintf(temp_string，% dx" ,dims[c]); 
strcat(shape_string,temp_string)， 


length_of_shape_string = strlen(shape_string)， 
/wm 亚 换 最 后 的 一 个 xy 将 其 改 为 \O, 字 符 训 结束 */ 
shape_string[length_of_shape_string- ]= \0' 
if (length_of_shape_string > 16) 
{ 
sprintf(shape_string， %d- DNO" ,number_of-dimensions); 


mexpPrintf(" 维 数 : % sNn” ,shape_string); 


class_name = mxCetClassName(array_ptD); 


mexPrintf(" 类 型 ， %s% sNn" ,class_namevmxlsSparse(array_ptr) ? ”(sparse)”: 


mexPrintf(” aaa 未 
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mxFree(shape_string); 


/# 根据 mxArray 的 类 型 选择 恰当 的 分 析 函 数 进行 分 析 = / 
mxClassID analyze_class(const mxArray * array_ptr) 
《 

mxClassIiD category: 


category = mxGetClassID(array_ptr); 
放 (mxlsSparse(array_ptr)) 
{ 
analyze_sparse(array_ptrD)# 
else 
switdh (category) 


{ 
case mxCHAR_CLASS:，。 analyze_string(array_ptr)， 


case mxSTRUCT_CLASS， analyze_structure(array_ptr); break 


case mmXCELL_CLASS: analyze_celt(array_ptrD) break; 
case mxUNKNOWNLCLASS: mexYWyarnMsgTxt( "Unknown class，); break: 
default; analyze_full(array_ptr)， break; 
】} 
》 
return( category)# 


7*# mexFunction * / 
void mexFunction( int nlhs,mxArray * plhs[] ,int nrhs,const mxArray * prhs[]) 
{ 

int 和 

int nFlag; 

六 nrhs>1) 

人 


nflag = (int)mxCetScalar(prhs[nrhs 一 1]);/ * 是 否 显示 详细 信息 */ 


else 


nflag= 1 
} 
for (i=0; ii 一 (Crhs-D 二 D? (nths-D:D;i++) 
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mexPrintf(*\nNnr ); 

mexPrintf( "一 - 一 -一 - 一 第 %d 个 输入 参数 -一 一 
mexprintf(" 名 称 : %s%d% cm ，prhs[" ,iD 
Bet_characteristics(prhs[ 门 )， 

inFlag) 

{ 





”D) 


analyze_class(prhs[ 门 ); 


)} 
Matlab 测试 代码 为 : 


印 = zeros(10,10)， 
吨 (4,4) = 1isp(5,5) = 1isp(1,6) = 1 
有 =p; 革 人 纪 = hellosst 人 = 1:100; 
“d=rand(5,5)， 
showarray(spst,d,D 1 
showarray(spvstd0) 


3.14.3 向 MAT 文 件 中 写 入 mxArray 变量 


MAT 文件 是 Matlab 特有 的 文件 类 型 ,将 数据 保存 位 MAT 文件 格式 对 于 Matlab 与 其 他 
开发 环境 交换 数据 十 分 方便 。Matlab mat API 函数 提供 对 MAT 文件 的 操作 接口 。 下 面 的 
实例 说 明 如 何 将 将 mxArray 变量 写 人 MAT 文件 中 。 


/1w matWriternxArray.c< 文件 内 容 */ 
##include "memory.h 
#include "mat.h” 


##ifndef NULL 
井 define NULL 0 
##endif 


int main(int argcvchar * argv[]) 

上 
MATFile * pmati 
mxArray x pal，x pa2，* pa3i 
double * pdata= NULL; 





double data[9] = { 1.0,2.0,3.0,4.0,5.0,6.0,7.0,8.0,9.0 ) 
const char * file= "mattest. mat" : 
char* * dir; 


int ndir; 
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int status,i; 


printf(" 正 在 创建 文件 %s. .nn' ,file)， 
pmat= matOpen(file，w"); 
if (pmat == NULL) 
{ 
printf( "文件 %s 创建 出 错 \n" ,file)， 
printf(" 请 检查 是 否 具有 当前 目录 的 写 文件 权限 或 者 当前 磁盘 是 否 还 有 剩余 空间 ? \n )# 


retum 一 1 


pal= mxCreateDoubleMatrix(3,3vmmREAL)， 

放 (pal== NULLD) 

{《 
printf(" %s ;内存 分 配 出 错 %d 行 \m ,，_ FILE _，LHNE_); 
printf(" 无 法 创建 需要 的 mxArray 数组 . \n" )3 


retum 一 1 


pdata = mxCetPr(pal)， 
for(i= ONi<mxGetM(pal) * mxCetNCpatD i++ ) 
1 
pdata[ 门 = mxCetM(pa1) * mxCetN(pal) 一 i+ 1; 


pa2 = mxCreateDoubleMatrix(3,3 ,mxREAL)， 

if (pa2== NULL) 

{ 
printf(" %s ， 内 存 分 配 出 错 %d 行 \" ,，_FILE_，_ LNE_); 
printf(" 无 法 创建 需要 的 mArray 数组 . \n ) 
retum 一 1; 

} 

memcpy((void * )(mxCetpr(pa2)),(void * )datavsizeof(data)); 


pa3 = mxCreateString("Matlab。 the language of technical computing"); 
if (pa3== NULL) 
{ 
printf(" %s : 内 存 分 配 出 错 %d 行 \ ,一 FILE ,一 LINE-); 
printf(" 无 法 创建 需要 的 mxArray 数组 .nm ) 4 
return 一 1 


status= matPutVariable(pmat，"LocalDouble” ,pal); 
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if (status ! = 0) 

{ 
printf(" %s : matPutVariable 函数 出 错 ,%d 行 \ ， 一 FLE ,一 LINE) 
retumn 一 1 


status= matPutVariableAsCGlobal(pmat， GlobalDouble ,pa2); 

放 (status ! = 0) 

人 
printf(" %s: matPutVariableAsGlobal 出 错 ,%d 行 ,FILE_ ,LINE_); 
retumn 一 1 


status= matputVariable(pmat,"LocalString" ,pa3)， 

if (status ! = 0) 

{ 
printf(" %s :matPutVariable 函数 出 错 ,%d 行 \n" ， 一 FILE ,LINE_); 
retumn 一 1 


mxDestroyArray(pal) ; 
mxDestroyArray(pa2)， 
mxDestroyArray(pa3)， 


printf( "文件 %s 创建 成 功 ! WAn ,file); 


诉 (matClose(pmat) ! = 0) 
{ 
printf(" 关 闭 %s 文件 出 错 ! \n” ,file); 


retum 一 人 


/* 重 新 打开 生成 的 MAT 文件 ,并 将 其 中 的 变量 显示 出 来 */ 
pmat = matOpen(file，m ); 


printf(" 打 开 文 件 %s 出 错 ! \m ,file)， 
retum 一 1 


dir= matCetDir(pmat,&ndiD ; 
f (dir==NULL) 




















printf("MAT 文件 %s 没有 变 





在 ! \m ,file)， 


retum(1) 


else 


printf("MAT 文件 %s 中 的 变量 有 :Nm ,file); 


for (i=0;i 一 ndiry i++ 


printf("Nt%sNn" ,dir[i 


证 (matClose(pmat) ! = 0 


printf( "关闭 %s 错 ,file); 


return(EXIT_FAILURE) 


Betchar 


return 0 


采用 命令 : 


mbuild -一 matlabroot 一 \Vbin\win32VmexoptsNmsvc6Oengmatopts. bat matWritenwArray.c 





将 matWritemxArray. e 编译 为 可 执行 文件 (其 中 (matlabroot) 表 示 Matlab 安装 的 根 目 


录 )。 此 程序 的 运行 结果 如 图 3 - 9 所 示 








图 3-9 向 MAT 文 件 中 写 入 mxArray 变量 的 实例 


3.14.4 从 MAT 文 件 中 读 取 mxArray 变量 
如 果 想 将 Matlab 开发 环境 的 数据 输出 到 其 他 开发 环境 中 ,可 以 通过 直接 将 Matlab 阵列 
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数据 存储 为 文本 文件 及 二 进 制 文件 等 通用 的 文件 格式 。 但 是 ,如 果 需 要 输出 的 数据 存放 在 
MAT 文件 中 ,就 需要 采用 相应 的 以 “mat” 开 头 的 API 函数 将 数据 从 MAT 文件 中 以 mxAr- 
ray 变量 的 方式 读 出 来 ,然后 再 转换 位 开发 者 需要 的 数据 格式 。 下 面 的 实例 代码 演示 的 是 从 
MAT 文件 中 读 人 Matlab 阵列 变量 的 方法 , 读 人 的 Matlab 变量 采用 mxArray 类 型 来 表示 。 

/ * matreadmxArray.c 文 件 内 容 * / 

# include 一 stdio.h> 

间 include "string.h 

间 include "mat.h” 


井 define _FILE_NAME_LEN 100 


int analyze_matfileCconst char * file) 


{ 


MATFile * pmat; 
char yx diri 
const char y namey 
int ndiry 

int ii 

mxArray w pa 


mexPrintf(" 开始 读 取 MAT 文件 %s...NnNn' ,file); 


pmat = matOpen(file,"r); 

if (pmat == NUUL) 

{ 
mexPrintf( "文件 %s 打开 出 错 1 \m ,file); 
return(1T) 


dir= matCetDir(pmat,&ndiD 

if (dir==NULL) 

{ 
mexpPrintf(" 当前 MAT 文件 %s 中 没有 任何 变量 ! \m ,file): 
retum(1T) 5 


else 


mexprintf("MAT 文件 %s 的 变量 为 :\m ,file); 
for (i=0fi< ndiry i++) 
{ 

mexPrintf(" %s\n" ,dir[ 门 )， 
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} 
mxFree(dinD 


让 (matClose(pmat) ! = 0) 

{ 
mexPrintf( "关闭 文件 %s 出 错 ! \n' ,file); 
retumn(TD)# 


/* 重 新 打开 Matlab MAT 文件 * / 

pmat= matOpenCfile"r) 

if (pmat==NULU) 

{ 
mexPrintf(" 打开 文件 %s 出 错 ! \m file); 
retumn(TD 


for (i=0ii< ndiry i++) 
{ 
pa = matGetNextVariablelnfo(pmat,&name); 
if (pa== NUUL) 
{ 
mexPrintf(" 读 取 文 件 %s 出 错 ! \n” ,file); 
retum(1) 


mexPrintf( "Matlab 数组 %s 的 :\nNt 维 数 为 : %dn ， 


name,mxCetNumberOfDimensions(pa)); 
mexPrintf(” \t 行 数 x 列 数 为 %dx%dnm ， 


mxCetM(pa) ,mxCetN(pa) )， 


mxDestroyArray(pa) 


if (matClose(pmat) ! = 0) 
{ 
mexPrintf(" 关闭 文件 %s 出 错 ! \m ,file); 
retumn(1)， 
)} 
mexPrintf( "文件 %s 分 析 完 毕 ! \n" ,file); 
return(O) 
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int main(int argcvchar* * argv) 
char name[_FILE_ NAME_LEN]， 
int num=0; 
int nFlag1vnFlag2， 


mexPrintf(" 请 输入 要 读 取 的 文件 名 称 (* .mat):)5 
scanf(" %s name)i 
while((name[num++ ]! = 人 \0)&&(num 一 =_FILE NAME_LEN- 1)3 
num=num 一 1 
inum> = _FILE NAME_LEN 一 5) 
《 

mexPrintf(" 输入 的 文件 名 太 长 ! \m ); 

retum 0 


nFlag1 = strcmp(name+ num 一 4 .MAT ); 
nFlag2 = strcmp(name+ num 一 4，.mat" ); 


ifCnFlagl&&mnFlag2) 

{ 
name[num] = 
name[num+ ]='M4 





nameLnum+ 2] = 
name[num+ 3]= 人 T'; 
name[num+ 4] = NO 
}》 
analyze_matfile(name) 


return 0 


} 
在 Matlab 命令 行 中 通过 命令 : 
mbuild -f 一 matlabroot 一 \bin\win32\mexoptsNmsvc60engmatopts. bat matreadmxArray.< 


编译 上 述 程序 (其 中 (matlabroot> 表 示 Matlab 安装 的 根 目录 ) ,并 运行 matreadmxArray. 
exe, 执 行 结果 如 图 3 - 10 所 示 。 























图 3-10 


3.14.5 通讯 录 ( 结 构 体 和 MAT 文件 ) 


下 面 的 实例 采用 MAT 文件 作为 存储 的 文件 格式 ， 
数据 结构 ,实现 了 一 个 简单 的 通讯 录 。 通 讯 录 采用 文件 
拥有 如 下 域 的 结构 体 作 为 主要 数据 结构 

@ name 姓名 : 

@ addr 住址 ; 

@ phonenum 电话 

通讯 录 的 程序 如 下 所 示 





* phonebook.c 文 件 内 容 * 
并 include "mex.h' 

并 include "mat.h 

并 include "string.h 


并 define _MAX_NUML_OF_ELEMENTS 3000 


主意 文件 指针 的 操作 * 


void mexFunction( int nlhs,mxArray * plhs 





* 检查 参数 的 有 效 性 > 
int ij 


int nfields,nRecordNumvnUsedNum: 





读 MAT 文件 实例 运行 结果 


采用 Matlab 结构 体 作为 通讯 录 的 主要 


“phonebook. mat" 作 为 存储 文件 ,采用 
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mwSize nStructElementNums 
MATFile * pmaty 

mxArray * pPhoneBook= NUUL; 
mxArray * PElement 

mxArray * pTmpField; 

char tempstring[300]， 

char name[] = "phonebook' ， 
char file[]= "phonebook.mat"i 
int status=03 

int fieldnum[3]， 

char fieldstr[200];/ * 存放 读 取 的 变量 名 称 * / 
int isNewFile= 0 

inrhs== 0) 

{ 





mexpPrintf(" 请 按照 电话 短 的 格式 输入 一 个 结构 体 :\m” ); 
mexpPrintf(" 电话 短 结 构 体 的 域 为 :Nm )# 
mexPrintf( "Nt name 姓名 Nm” ) 

mexPrintf(" \t addr 住址 \n )， 
mexPrintf(" \t phonenum 电话 \m” )， 


returnt 
else 


for(i=0:i<nrhsii++) 
{ 
放 ! mxlsStruct(prhs[ 门 )) 
{ 
mexpPrintf(" 参数 %d 不 是 结构 体 ! \m" ,i+ 1); 


returnt 


/* 读 入 电话 笨 */ 

pmat= matOpen(file"r); 

ipmat == NUUL) 

{ 

mexPrintf(" 读 取 文 件 %s 错 误 ! \n ,file)， 

mexpPrintf(" 创建 文件 %s- .nm ,file); 
/* 读 取 的 文件 不 存在 ,重新 创建 "phonebook.mat 文件 * / 
pmat = matOpen(file，，w"); 
放 pmat==NULL) 
{ 


第 3 章 ”Matlab 与 C 语 言 的 接口 








127 








mexPrintf(" 创建 文件 %s 失败 ! \n' ,file); 
returnt 


matClose(pmat) 
pmat= matOpen(file，u )3 
会 pmat== NULL) 
{ 





mexPrintf(" 重新 读 取 文件 %s 错 误 ! \m ,file); 
Tetumns 
} 
isNewFile= 1 


pphoneBook = matCetVariable(pmat," phonebook' ); 
if(pPhoneBook! = NULL) 
{ 
ifC1 malsStruct(pPhoneBook)) 
{ 
mexprintf(" 文 件 %s 中 不 包含 电话 簿 信息 ! \n” ,file)， 
matClose(pmat) ， 
returny 


else 


/* 在 新 创建 的 phonebook.mat 文件 加 入 phonebook 结构 体 阵列 */ 


mxArray w pa 
mwSize ndim= 25 
mwsSize dims[2] = {1,-MAX_NUMLOF_RLEMENTS); 
char field1[]= "name'"， 
char field2[]= "addr 
char field3[] = "phonenum 
char * field_names[3] = {fieldl,field2 ,field3); 
inti= 0 
mexpPrintf(" 文 件 %s 中 不 包含 电话 短信 息 ! \n” ,file); 
mexprintf(" 创建 电话 短信 息 ! \m ); 
pa = mxCreateStructArray(ndim,dims,3,field_names); 
/* 将 pa 的 name 域 初始 化 为 "一 个 字符 事 * / 
for(i= 0;i<<mxCetNumberOfElements(pa) ;i++ ) 

{ 
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mxSetFieldByYNumber(pa,i,0,mxCreateString(" 一 一 )); 
}》 
matPutVariableC(pmat，phonebook" ,pa); 
mxDestroyArray(pa) 
pa=NUUL; 
pPhoneBook = matCetVariable(pmat，phonebook" ); 


nRecordNum = mxCetNumberOfElements(pPhoneBook) ; 


7 
寻找 当前 未 被 占用 的 通讯 录 空 间 : 
通讯 隶 的 最 大 条 数 可 以 根据 
_MAX_NUMLOF_FLEMENTS 设 定 
/ 
i=0; 


while(i<nRecordNum) 
{《 
pElement = mxCetField(pPhoneBook ,iname" )， 
mxGetString(pElementvtempstring ,300) 
如 果 结 构 体 元 素 的 name 域 的 值 为 " 一 四 的话， 
当前 结构 体 元 素 表 示 空 的 通讯 录 元 素 
*/ 
放 ( yw tempstring== ' 一 )&&( * (tempstring+ 1) =='1)) 


breaky 





mexErrMsgTxt(" 电话 每 已 满 ! \n )# 
matClose(pmat) 
retumy 


7 
电话 筹 的 域 分 别 为 : 
name 姓名 
addr 住址 
phonenum 电话 
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/ 


for(j=0;j 和 nrhs:;j++) 


{ 


nStructElementNum = mxCetNumberOfElements(prhs[ 门 ); 

放 (CnStructElementNum 过 1) | | (CnStructElementNum==0)) 

! 
mexpPrintf(" 参 数 %d 与 电话 短 的 格式 不 符 \m ,jj+ 1); 
continue; 

} 

nfields = mxGetNumberOfFields(prhs[ 门 )， 

放 nfields! =3) 

{ 
mexPrintf(" 参 数 %d 与 电话 短 的 格式 不 符 \m ,j+ TD)5 


continuey 


pTmpField = mxGetField(prhs[ 站 ,0，name" ); 





printf(" 输入 的 第 %d 各 变量 的 name 域 为 空 ! \m ,iD 


continuey 


} 
mxSetfield(pPhoneBook,i+ j，“name" ,rmxDuplicateArray(pPTmpField)); 
pTmpField = mxCetField(prhs[ 门 ,0，addr" ); 

认 pTmpField== NULLD) 


printf(" 输 入 的 第 %d 各 变量 的 name 域 为 空 ! \n ,j); 
continues 

mxSetfield(pPhoneBook,i+ j， “addr ,mxDuplicateArrayCpTmpField)) 

pTmpField = mxGetfield(prhs[ 门 ,0，phonenum' )， 

ipTmpField== NUUL) 

《 
printft* 输 入 的 第 %d 各 变量 的 name 域 为 空 ! Nm ,D 
Continuey 

} 

mxSetField(pPhoneBook,i+ j，“phonenum' ,mdDuplicateArray(pTmpField))， 


/* 保存 电话 短 到 * .mat 文件 中 */ 
matClose(pmat)， 

pmat = matOpen(file，w") 

status= matPutVariable(pmatvname,pPhoneBook); 
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ifCstatus! =0) 
printf( "变量 %s 写 入 文件 %5 出 错 ! \m ,name'file); 


matClose(pmat) ; 


/* 显示 当前 电话 短 中 的 内 容 */ 

fieldnum[0] = mxGetFieldNumber(pPhoneBook，name ); 
fieldnum[1] = mxGetFieldNumber(pPhoneBook，addr ); 
fieldnum[ 2] = mxGetfieldNumber(pPhoneBook，phonenum ); 


nStructElementNum = mxCetNumberOfElements(pPhoneBook)， 
for(i=0;i 和 nstructElementNumii++ ) 
{ 
pTmpField= mxCetFieldBYNumber(pPhoneBook ,i,fieldnum[0])， 
mxGetstring(pTmpField fieldstr,200)， 
if((C* fieldstr==! 一 D&&(* (fieldStr+ D)== 11D))》 
{ 





breaky 
printf(" 第 %d 个 联系 人 的 资料 :Nm vi+ 1 
printf(" \t 姓名 :%sNm ,fieldSstD 


pTmpField = mxGetfieldByYNumber(pPhoneBook,ivfieldnum[1])， 
mxGetString(pTmpField,fieldstr,200)， 
printf("\t 地 址 :%sNm ,fieldstD 


pTmpField = mxCetFieldByNumber(pPhoneBook， ifieldnum[2])， 
mxGetString(pTmpField,fieldstr,200) 
printf("\t 联系 电话 :%sNn' ,fieldStD， 


放 pPhoneBook! =NUUL) 
{ 
rmxDestroyArray(pPhoneBook)， 


returny 


Matlab 测试 代码 及 测试 结果 如 下 所 示 。 
六 mex phonebooak.c 
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六 y= struct('name'， 刘 勇 ,addr'， 河 北 石家庄 ,iphonenum','031161615053 ); 
六 phonebook(ly) 
读 取 文件 phonebook.mat 错误 1 
创建 文件 phonebook-mat. . 
文件 phonebook.mat 中 不 包含 电话 短信 息 ! 
创建 电话 短信 息 ! 
第 1 个 联系 人 的 资料 : 
姓名 : 刘 勇 
地 址 :河北 石家庄 
联系 电话 :031161615053 
六 df= struct('name',' 东方 ,addr'， 河北 石家庄 ,phonenum' ,031161615054); 
六 phonebook(df) 
第 1 个 联系 人 的 资料 : 
姓名 : 刘 勇 
地 址 : 河北 石家庄 
联系 电话 : 031161615053 
第 2 个 联系 人 的 资料 : 
姓名 : 东方 
地 址 : 河北 石家庄 
联系 电话 : 031161615054 
六 


3.15 在 Visual C 十 十 中 调试 MEX 文件 


采用 MEX 文件 的 方式 将 C 语言 编写 的 代码 嵌入 到 Matlab 中 执行 是 Matlab 与 C 语言 混 
合 编程 的 一 种 重要 方式 。 但 是 ,MEX 文件 不 能 在 Matlab 中 像 编 写 . m 文件 那样 便于 调试 ,如 
果 MEX 文件 实现 的 功能 稍微 复杂 一 点 就 会 使 程序 的 调试 工作 十 分 繁 珊 。 尤 其 是 对 于 很 多 已 
经 习惯 于 采用 C/C 十 十 开发 环境 的 开发 人 员 来 说 ,更 是 非常 的 不 适应 。 由 于 MEX 文件 其 实 
就 是 动态 链接 库 ,因而 可 以 采用 Visual C 十 十 6. 0 作为 开发 和 调试 MEX 文件 的 工具 。 

通过 Visual C 十 十 6. 0 建立 可 调试 的 MEX 文件 的 步骤 如 下 所 述 。 

(1) 建立 新 的 动态 链接 库 工 程 

打开 Visual C 十 十 6.0, 选 择 File|New 菜单 项 ,将 会 弹出 如 图 3 - 11 所 示 的 对 话 框 ,选择 
Win32 Dynamic-Link Library 选项 ,建立 一 个 新 的 动态 链接 库 工 程 。 

(2) 建立 新 的 Matlab MEX 文件 

单 击 OK 按钮 后 ,弹出 如 图 3 - 12 所 示 的 对 话 框 ,选择 “ 空 的 动态 链接 库 选 项 ,创建 一 个 
新 的 Matlab MEX 文件 (在 Windows 下 实际 上 是 动态 链接 库 文件 ), 然 后 单 击 Finish 按钮 
继续 。 

(3) 添加 testmexvc.e 文件 

选择 Project|Add To Project| Files 菜单 项 ,加 入 testmexvc. e 文件 。 首 先 编辑 testmex- 
vc.c 文件, 其 中 mexFucntion 必 不 可 少 。 下 面 给 出 一 个 空 的 mexFunction 的 模板 。 
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Files 





Projects | Workspaces | other Documents 





因 ATLCOM AppWizard Fei 
Cluster Resource Type Wizard | 一 一 2 
Custom AppWizard 
Database Project 

隐 DevStudio Addin Wizard Lecation: 


Extended Stored Proc Wizard D3Matlabcodevtestmexvc 
ISAPI Extension Wizard 
Makefile 
MFC ActiveX ControlWizard 
MFC AppWizard Id 中 ”Create new werkspace 
MFC AppWizard lexel 
New Database Wizard 
Ti Uiiliy Project 带 区 
win32 Application 
Win32 Console Application 
司 Win32 Dynamictink Library 
司 win32 Static Ubrary 

















图 3-11 建立 一 个 Matlab MEX 文件 的 新 工程 


Win32 Dynamic-Link Library - Step 1 of 工 


What kind of DLL would you like to create ? 


“BEEYEULBja 
广 Asimple DLL project. 
C ADLL that exports some symbols. 
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# testmexvc.c 文 件 内 容 * 
#include "stdio-h*/ * 可 以 省 略 * 
划 include "mex.hr 


void mexFunctionint nihs,mArray * plhs[] ,int nrhs， const mxArray * prhs[]) 


printf(" Hello World\m ); 


mexPrintf( "Hello World\n” ); 


(4) 建立 testmexvec. def 文件 
用 文本 编辑 器 建立 testmexvc. def 文件 。 下 面 是 一 个 标准 的 * . def 文件 模板 ,其 大 致 含 
义 是 告诉 编译 器 建立 一 个 testmexvc. mexw32 文件 ,并 且 其 导出 函数 是 mexFunction。 
LIBRARY testmexvc 
EXPORTS mexFunction 


testmexvc, def 文件 建立 完成 以 后 ,通过 选择 Project| Add To Project 菜单 项 将 其 加 入 到 
已 经 建立 的 Visual C 十 十 工程 中 ,如 图 3- 13 所 示 。 


Insert Files into Project 


查找 范围 代 ) : | 品 testmexve | + 白人 半 图 - 


IDDebug 物 testmexvc plg 
[@] testmexvc. < 


回 testnexvc ncb 





文件 名 加: estnexve def 
文件 类 型 @) :| 所 有 文件 (re) 取消 





Insert into: jitestmexvc 了 可 





图 3-13 将 testmexve. def 文件 加 入 到 Visual C 十 十 工程 中 

(5) Visual C 十 十 工程 设置 

设置 Visual C 十 十 工程 ,以 实现 MEX 文件 的 调试 。 

O 选择 Project| Setting 菜单 项 ,弹出 Project Settings 对 话 框 ,如 图 3 - 14 所 示 ,选择 De- 
bug 选项 卡 ,在 Executable for debug session 文本 框 中 选择 所 需 的 Matlab 启动 程序 的 地 址 。 

回 在 Project Settings 对 话 框 中 选择 Link 选择 卡 , 如 图 3- 15 所 示 , 在 ObjectUlibrary 
modules 文本 框 中 输入 需要 加 入 的 Matlab 静态 链接 库 , 例 如 libmx. lib .libmex. lib 和 libmat. 
lib。 
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Setings For [win32 Debug 


[ET 














General Debug | cicr | Link | Resources | M CD 


Category [General 加 





Wiorking directory: 





Program arguments: 





Remote cxecutable path and file name: 









图 3-14 


+ 品 Source Files 
局 HeaderFiles 
局 Resource Files 











Visual C 十 十 工程 调试 选项 设置 


General | Debug | cicr+ Unk | Resources | M CD 


Beset 











Categorx [General 司 











Output file name: 
TDebugnestmexvcmexw32 





Generate debug info 
Unk incrementally 
厂 Enable profiling 


厂 lgnore all defautt libraries 
厂 Generate mapfile 

三 Doesn produce .LIB 
Project Options: 


[kemel32.lib user32.lib gdi32.lib winspoollib 
comdlg32.lib advapi32.lib shell32Jib ole32.lib 
oleaut32Jlib uuidJib odbc32.lib odbccp32.lib libmxlib v 


















Cancel 





图 3-15 Visual C 十 十 工程 Link 选项 卡 设置 


在 Output file name 文本 框 中 更 改 输出 文件 的 扩展 名 ,如 果 是 32 位 系统 则 改 为 mexw32， 


如 果 是 64 位 系统 则 改 为 mexw64, 如 图 3-15 所 示 - 


图 在 Project Settings 对 话 框 中 选择 C/C 十 十 选项 卡 , 在 Preprocessor Definitions 文本 框 


第 3 章 Matlab 与 











中 加 入 宏 定义 MATLAB_MEX_FILE, 如 图 3-16 所 示 。 






Categery |General 


Warming levet: 


General | Debug ”cicr+ | Unk | Resources 





Optimizations: 





Level3 


习 






厂 Wamings as erors 


Jpisable [Debugl 


厂 Generate browse info 



















Preprocessor definition 
_USRDLLTESTMEXVC_EXPORTS， 





Project Options: 





[nologo MTd WwW3IGmIGX 局 10d1D "WIN32"10D 
|”DEBuG"iD"” WINDOWS"/D "MBCS"iD 
| usRDLL "1D "TESTMEXYC_EXPoRTS" 

















图 3-16 Visual C 十 十 工程 C/C 十 十 选项 卡 设置 


(6) 设置 Visual C 十 十 工程 的 头 文件 目录 和 静态 链接 库 的 目录 
选择 Tools|Options 菜单 项 ,设置 Visual C 十 十 工程 的 头 文件 目录 和 静态 链接 库 的 目录 ， 


如 图 3 -17 和 图 3 - 18 所 示 。 其 中 头 文件 的 目录 为 : 


Edior | Tabs | Debug | Compatibilty | Build 。 Directories | Source CT 


Platform: 
Win32 


Show directories for 
[mclude files 





蝇 对 


Directories: 加 尖 - 售 《 
D3Program Files\Microsoft Visual Studio\VC98WNCLUDE 
D3Proqram Files\Microsoft Visual StudioWVC98WMFCVWNCLUDE 
DAProqram Files\Microsoft Visual StudioWVC98WTLWINCLUDE 
于 FFT2 FOR YVCI FOR VC++ 6.0\HEADERS 
TITTTTTTRTTTTTTT 下 
D3MATLABR2007AWNEXTERNWNCLUDEYWIN32 














图 3-17 Visual C 十 十 工程 头 文件 目录 的 设置 
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一 matlabroot 一 \Vextern\include 


二 matlabroot 二 \EXTERNNINCLUDE\WIN32 


如 图 3 - 18 所 示 , 库 文件 的 目录 为 : 
一 matlabroot 一 \EXTERNNLIB\WIN32AMICROSOFT 


Options 


Editor | Tabs | Debug | Compatibility | Build Directories | source CD 
Platorm: 


Show directories for 
Win32 


Jernaymes 











Directories: 





交 交 am Files\Microsoft Vis， 


StudioWC9BWLIB 
FilesWMicrosoft Vis 


tudioWYC98\MFCAWLIB 














图 3-18 Visual C 十 十 工程 库 文件 目录 的 设置 


(7) 设置 程序 断 点 


为 程序 设 一 个 断 点 , 按 F5 键 或 者 Visual C 十 十 调试 工具 栏 的 调试 按钮 ,会 出 现 如 图 3 - 19 


所 示 的 对 话 框 , 单 击 OK 按钮 ,调试 程序 就 会 启动 Matlab 程序 。 进入 Debug 目录 ,执行 生成 


的 testmexvc. mexw32 文件 ;如 testmexvc, 程 序 就 会 自动 调转 到 所 设 的 断 点 处 ,如 图 3 - 20 
所 示 。 





Microsoft Developer Studio 


'D34MATLABR2007abinywin32WMATLAB.exe' does not 
contain debugging information，Press OK to continue-. 


厂 De not promptin the future- 





图 3-19 系统 提示 对 话 框 
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1 global member >] emexFunction 





[天 TI 
ciGde stdTo-R 


| = testmexvefies Clude “me - 
= 后 Source Files woid mexFunction(int nlhsvmoxhrrayg wplhs[] ,int nrhs,const mxhrri 


《 
estmexvcc 了 
ee printF("Nelle werldvm') 
由 testmexvcdef | | 四 mexprintf("Nello Worldvn 
局 Header Files )》 
Resource Fles 
+ 了 Extemal Dependenc 














Wucat ECEorREEno 





图 3-20 正在 调试 中 的 Visual C 十 十 MEX 工程 


es 
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使 用 Matlab 编 将 M 文件 编译 为 独立 可 执行 程序 是 最 常用 的 一 种 方式 。 在 第 2 章 
Matlab 编译 器 中 介绍 了 Matlab 编译 器 编译 独立 可 执行 程序 的 步骤 ,通过 本 章 的 学 习 可 以 使 
读者 进一步 熟悉 编译 独立 可 执行 Matlab 程序 的 实用 技巧 ,以 期 达到 灵活 运用 的 目的 。 


4.1 直接 编译 M 文件 


这 是 Matlab 编译 器 最 简单 的 应 用 ,这 里 以 (matlabroot)\externNexamples\compiler 目录 
下 的 flames. m 文件 为 例 ( 需 要 flames. m 和 flames. mat 两 个 文件 ) ,将 这 两 个 文件 复制 到 
work 目录 下 ,然后 用 mce -m flames. mr-a flames. mat 编译 flames. m 文件 (运行 结果 如 图 4-1 
所 示 )。 编 译 完成 后 ,在 目录 下 可 以 看 到 flames_main. c、flames_mcc_component_data. c、 
flames. ctf 和 flames, exe 四 个 文件 。 本 章 后 续 的 例子 中 都 是 围绕 这 四 种 文件 展开 的 , 即 xxxx 
_main. c\xxxx_mecc_component_data. c、xxxx. ctf xxxx. exe( 可 参看 2.4. 1 小 节 中 对 这 四 种 文 


件 进 行 的 详细 讲解 














图 4-1 mames. exe 运行 结果 


4.2 Matlab M 文件 中 调用 C 函数 






通过 采用 5 #external 语法 结构 ,在 Matlab 函数 中 也 可 以 调用 C 或 C 十 十 函数 。 在 下 例 
中 ,假定 在 Matlab 函数 中 用 一 个 与 数据 采集 设备 密切 相关 的 底层 C 函数 以 获得 该 设 
备 采集 的 数据 。 此 时 ,可 以 首先 用 M 文件 完成 整个 程序 ,需要 调用 的 C 函 数 暂 时 用 M 函数 代 
替 , 并 用 % # external 标记 。 如 下 所 示 ,整个 M 程序 由 showdata 和 getdata 两 个 函数 构成 ， 


需 
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showdata 负责 显示 getdata 从 数据 采集 设备 中 得 到 的 数据 。 
% 以 下 和 代码 在 showdata.m 文件 中 
function showdata 
yY= zeros(1,100);， % 将 yY 分 配 为 1 x 100 的 数组 
for i= 1:100 
YCD = getdata; 
end 
plot(y) 


% 以 下 代码 在 getdata.m 文件 中 
function y= getdata 
%% 井 external 
% persistent 定义 与 C 语 言 的 static 类 似 。 采 用 persistent 定义 的 变量 在 函数 调 
% 用 结束 时 ,其 仍然 保存 在 内 存 中 ,下 次 函数 调用 时 仍然 可 以 读 取 其 值 
persistent tt 
if (isempty(t)) 
t=0; 
end 
t=t + 0.054 
y= sin(t)， 


在 命令 行 中 键入 mcc -m showdata. m getdata. m 命令 ,将 showdata. m 及 其 关联 的 getda- 
ta. m 编译 为 C 文件 ,注意 这 里 生成 的 C 文件 与 4. 1. 1 小 节 的 文件 不 太 相 同 。 在 生成 的 C 文 
件 中 ,多 了 一 个 getdata_external. h 文件 ,其 内 容 如 下 所 示 。 
Ar 
# Matlab Compiler: 4.6 (R2007a) 
* Date: Sun jul 29 13:17:03 2007 
Arguments: "一 B "macro_default' “一 m' “一 W main "一 站 "link:exe" 
* “showdatam"” "getdata.m” 
/ 


间 ifndef __getdata_external_h 
井 define __getdata_external_h 1 


林 include "mclmcr .hy 
间 ifdef _cplusplus 
extern "C" 人 

提 endif 


bool MW_CALL_CONY getdata(int nlhs,mxArray * plhs[] ,int nrhsyrxArray * prhs[])， 


间 ifdef cplusplus 
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并 endif 
划 endif 
这 里 的 getdata_external. h 实际 上 是 一 个 接口 文件 。 其 中 getdata 函数 声明 为 


bool getdataint nlhs,mxArray 





plhs srnxArray * prhs 


是 要 


getdata 便 用 C 函数 替换 的 getdata 函数 。 此 函数 可 以 用 C 语言 实现 ,命名 在 get 
ternal. c 文件 中 ,笔者 编写 的 getdata_external. c 文件 的 内 容 如 下 所 示 





* 此 程序 直 





# 井 include "getdata_external 
bool MW_CALL_CONYV getdata(int nlhs,mxArray h intn prh: ) 
古 数 休 由 况 改 变 
static double t=0.0; 
t=t + 0.054 
plhsL0] = mxCreateDoubleScalar(sin 
完成 getdata_external. ec 以 后 ,通过 





mbuild showdata_main.c showdata_mcc_component_data.c Betdata_external.c -output showdata exe 





将 showdata. m 文件 编译 为 可 执行 文件 ,其 运行 


结果 如 图 4- 2 所 示 


ETTET 


口 芝 加 驴 及 呈 了 


data_ex 


上品 | 妈 | 





1 


05 


05 








20 








图 4-2 showdata. exe 的 运行 结果 
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4.3 在 C 语 言 中 调用 由 Matlab x* . m 文件 生成 的 函数 


在 4.1.2 小 节 中 ,通过 和 % 井 external 将 C 语言 代码 嵌入 到 matlab * . m 文件 中 。 在 C 语言 
函数 中 ,也 可 以 调用 *. m 函数 ,该 类 函数 是 经 过 Matlab 编译 器 编译 后 的 函数 。 下 面 以 
mrandplot. m 函数 为 例 , 说 明 如 何 通过 C 语言 调 
用 Matlab * . m 生成 函数 。 


%% 以 下 程序 在 mrandplot.m 文件 中 
function nokse= mrandplot(n) 
%function noise= mrandplot(m) 
%mrandplot. m 


noise= rand(n,TD)， 


目 readne. txt 


plot(noise)， 站 weegxclodedpiles log 
加 mrsndplotLib prj 
1， 编译 mrand. m 文件 站 randplotm 


首先 采用 下 面 命令 编译 mrandplot m 文件 ， 和 Re 


国 ormnaplotLib etf 





mec -W lib:MrandplotLib mrandplot. m 汕 二 eeiw 
oj] mrandplotLib_mcc_component_data ec 
便 会 生成 如 图 4 - 3 所 示 的 文件 。 加 mrendplotLib e 


其 中 mrandplot. h 的 内 容 如 下 所 示 。 居 WirandplotLib.k 





*# Matlab Compiler。 4.6 (R2007a) 图 4-3 编译 mrandplot m 生成 的 文件 
*# Date: Sun jul 29 14:09:53 2007 


*# Arguments: "一 B “macro_default"“"- W"”“" 由 :MrandplotLib” "mrandplot.m” 


砷 ifindef _ _MrandplotLib_h 
#define _ _MrandplotLib_h 1 和 


并 放 defined(__cplusplus) && ! defined(mcimcr_ h) && defined(__Jinux_ _) 
#。 pragma implementation "mclmcr. hy 

并 endif 

划 include "mclmcr hr 

划 ifdef __cplusplus 

extem "Cr 


划 endif 
#f defined(__SUNPRO_CC) 


#ifdef EXPORTING_MrandplotLib 
# define PUBLIC_MrandplotLib_C_API __global 
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#else 
# define PUBLIC_MrandplotLib_C_API / * No import statement needed. * / 
提 endif 


井 define LIB_MrandplotLib_C_API PUBLIC_Mrandplott 和 b_C_AP1 
# 井 elif defined(_HPUX_SOURCE) 


井 ifdef EXPORTINC_MrandplotLhb 

##define PUBLIC_MrandplotLib_C_API _ _declspec(dllexporD 
提 else 

井 define PUBLIC_MrandplotLib_C_API _ -declspec(dilimport) 
井 endif 


# 井 define LIB_MrandplotLib_C_API PUBLIC_MrandplotLib_C_API 
井 else 

厅 define LIB_MrandplotLib_C_API 

林 endif 


#ifndef LIB_MrandplotLib_C_API 
# 井 define LIB_MrandplotLib_C_API 


间 endif 


extern LIB_MrandplotLib_C_API 

bool MW_CALL_CONV 
MrandplotLibinitializeWithHandlers(mclOutputHandlerFcn error_handler， 
mclOutputHandlerFcn print_handleny 


extern LIB_MrandplotLib_C_API 

bool MW_CALL_CONV MrandplotLiblnitialize(void); 

extern LIB_MrandplotLib_C_API 

void MW_CALL_CONV MrandplotLibTerminate(void); 

extern LIB_Mrandplotib_C_API 

bool MW_CALL_CONV mlbMrandplot(int nlhs,mArray* plhs[]， 
int nrhsvmxArray * pths[]); 

extern LIB_MrandplotLib_C_API bool MW_CALL_ CONV mifMrandpiot 
(int nargout,mxArray * * noisevmmArray* m1 

间 ifdef __cplusplus 

了 

#endif 
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并 endif 
其 中 : 


bool mlfMrandplot(int nargout,mxArray * * noise,mxArray * 


便 是 编译 mrandplot. m 文件 后 生成 的 mrandplot 函数 的 接口 函数 。 在 C 语言 函数 中 可 
以 通过 调用 mlfMrandplot 函数 来 达到 调用 mrandplot 函数 的 目的 。 


2. 调用 milfMrandpiot 函数 
调用 mlfMrandplot 函数 的 C 语言 主 函 数 如 下 所 示 。 


/wx mrandploL_vc_window.c 文件 */ 

间 include 一 windows.h> 

间 include "MrandplotLb.h 

井 include "string .hr 

int APIENTRY WinMain(HINSTANCE hinstance， 
HINSTANCE hPrevlnstance， 
LPSTR 。 IpCmdLine， 
it nCmdshow) 


mxArrayw out= NULL 
mxArray* in= NUUL; 


int isOK1 
double ypOut= NUUL 
mwsize i= 0 


mwSize nNums 

char wpBuff= NULL; 
mwsize n= 0 
mwSize nsum= 0 


pBuff= (char * )malloc(5000 * sizeof(char)); 
merset(pBuff,Ox00,5000 * sizeof(char)) 


mcllnitializeApplication(NULL,0) 
OK = MrandplotLiblnitialize()， 
in= mxCreateDoubleMatrix( 1,1,mREAL); 


# mxGetPr(in) = 20; 


isOK = mlfMrandplotC 1,&outvin)， 


pOut = mxGetPr(ouD 
niNum = mxCetNumberOfElements(oubD } 
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for(i=O;i<nNumii++ ) 
n= sprintf(pBuff+ nSsum，" %f\n"  ,pOut[DD); 
nsum= nsum+ mi 

} 


MessageBox(NULL,pBuff，MRANDDATA" ,MB_OK); 


// 等 待 Matlab 图 形 窗 口 
mclWaitforFiguresToDie(NULL)， 
free(pBufp 
mmxDestroyArrayCout) 
mxDestroyArray(in)， 
MrandplotLibTerminate()， 
mclTerminateApplication() 
retum 0 


这 个 程序 有 两 点 需要 注意 ; 

CQ Matlab 和 C/C 十 十 混合 编程 中 经 常 要 用 到 mx -API 函数 。 本 例 中 调用 mxCreateDoubleMa- 
trix API 函数 来 构造 mlfMrandplot 函数 的 输入 参数 。 

@ 如 果 Matlab 程序 中 存在 图 形 窗口 , 则 需要 调用 mclWaitForFiguresToDie 函数 等 待 图 
形 人 窗口 执行 完毕 以 后 再 退出 ,否则 会 出 现 错误 。 

3. 采用 Visual C 十 十 6.0 编译 

采用 Matlab mbuild 也 可 以 编译 上 述 程序 (mrandplot_vc_window. c) ,但 是 不 能 调试 程 
序 , 因 而 最 好 采用 Visual C 十 十 6. 0 进行 程序 编译 ,这 样 可 以 充分 利用 VC 工具 的 强大 功能 调 
试 程序 。 采 用 Visual C 十 十 6. 0 编译 程序 的 步骤 如 下 所 述 。 

@ 建立 一 个 Visual C 十 十 6.0 Win32 Application 空 工 程 。 

四 设置 Visual C 十 十 6.0 工程 。 通 过 选择 Project| Settings 菜单 项 打开 的 对 话 框 中 的 link| 
input 选项 ,将 库 文 件 libemlrt lib、libmex lib libut lib、mclmerrt, lib libeng. lib libmwlapack. lib、 
mclcom. lib mclxlmain. lib libfixedpoint. lib libmwservices, lib、 mclcommain. lib、libdflapack, lib、 
libmat. lib libmx. lib .mclmecr. lib 加 入 到 Visual C 十 十 6.0 工程 中 (这 些 库 文件 在 (matlabro- 
otyNexternNlib\win32\microsoft 目录 下 ) 。 

回 将 mrandplot_vc_window. ec`MrandplotLib_mcc_component_data. c`MrandplotLib. c、 
MrandplotLib. h 加 入 到 工程 中 。 

@@ 编译 后 运行 。 

此 程序 利用 了 Win32 程序 设计 的 特点 ,采用 WinMain 函数 而 不 是 传统 的 控制 台 程 序 作 
为 入口 函数 ,因而 可 以 去 掉 不 太 雅 观 的 控制 台 窗 口 , 但 是 需要 读者 有 一 些 Windows 程序 设计 
的 基础 知识 ,这 一 技巧 在 4. 1. 4 小 节 中 进行 详细 讲解 。mrandwin, exe 的 运行 结果 如 图 4 -4 
所 示 。 
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和 jl 人 日 @ PRpBD | 
0.8913 胞 7 
0.7621 1 

















图 4-4 Mrandwin. exe 的 执行 结果 


4.4 利用 Visual C 十 十 编译 M 文件 并 去 掉 控制 台 窗 口 


1. 采用 WinMain 代替 main 

采用 Matlab GUI GUIDE 可 以 编辑 和 生成 Matlab 的 图 形 界面 程序 ,然后 再 通过 采用 
Visual C 十 十 编译 生成 的 * . m 文件 ,从 而 达到 生成 独立 可 执行 程序 的 目的 。 

下 面 就 用 一 个 趣味 弹 球 的 动画 程序 (如 图 4 - 5 所 示 ) 来 说 明 这 个 思路 的 可 行 性 。 





图 4-5 趣味 弹 球 动画 程序 的 运行 结果 
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(1) 趣 昧 弹 球 动画 程序 的 运行 机 理 

如 图 4-5 所 示 , 初 始 时 , 弹 球 在 一 定 的 位 置 按 
照 一 定 的 方向 匀速 运动 。 当 弹 球 碰 到 墙 蛙 ( 程 序 y 
中 图 形 界面 的 边界 ) 时 ,按照 反射 定律 变换 运动 的 
方向 。 在 下 面 的 例子 中 , 设 定 的 坐标 系 如 图 4-6 
所 示 。 

设 定 墙壁 左下 角 为 坐标 原点 O, 墙 壁 四 个 顶点 
的 坐标 为 (0,0),(1,0),(1,1),(0,1), 则 当 弹 球 在 o 
屏幕 上 下 墙壁 面 反射 时 ,假定 人 射 方向 的 矢量 为 、 
Z= Xi 十 jXY, 则 反射 方向 的 矢量 为 Z,=X 一 jX 图 4-6 趣味 弹 球 动画 程序 坐标 系 示意 图 
Yi; 当 弹 球 在 屏幕 左右 墙壁 面 反射 时 ,假定 人 射 方 
向 的 矢量 为 Zi=Xi 十 jXYi, 则 反射 方向 的 矢量 为 忆 一 一 Xi 十 jXYi。 

(2) ball. m 文件 用 到 的 主要 Matlab 函数 

下 面 简单 介绍 ball. m 程序 中 用 到 的 主要 Matlab 函数 ,如 表 4 -1 所 列 。 


表 4-1 趣味 弹 球 程序 用 到 的 主要 Matlab 函数 列表 
名 称 作 用 一 | 
set 设置 指定 对 象 的 制定 属性 
ecf | 返回 当前 fgure 对 象 的 Matlab 句柄 
gca | 返回 当前 axes 对 象 的 Matlab 句柄 
保存 当前 plot 和 axes 对 象 的 各 属性 值 ,以 便 在 同一 幅 
图 上 显示 多 次 绘图 的 结果 
| dmawnow | 通知 Matlab 强制 刷新 屏幕 


pause 程序 暂停 指定 的 时 间 
全 填充 制定 的 区 域 
在 ball, m 程序 中 ,趣味 弹 球 程序 的 背景 和 小 球 实际 上 都 是 一 个 填充 了 颜色 的 区 域 ,例如 
下 面 的 语句 就 是 在 屏幕 上 绘制 一 个 菱形 区 域 。 


%drawdiamond.m 

figurei % 创建 一 个 figure 对 象 

axesf % 在 当前 figure 中 创建 一 个 axes 对 象 

axis([0 10 1]);% 设 定 XY 坐标 轴 的 最 大 和 最 小 值 

set(Bcav'position',[0 0 1 1]);% 设 定 当前 axes 对 象 在 figure 中 的 位 置 和 大 小 
axis off; % 隐藏 xy 坐标 轴 

hrect=fil([0 110],[00 11],[0.40.40.6]):% 绘 制 一 个 正方 形 区 域 
hold on 

% 绘 制 一 个 莱 形 区 域 

hdiamond= fill([0 0.5 10.50],[0.500.510.5],1-[0.40.40.6]); 


这 段 程序 的 执行 结果 如 图 4- 7 所 示 。 




















hold on 
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图 4-7 萎 形 填充 测试 程序 结果 


(3) 趣味 弹 球 动画 的 处 理 程序 

由 于 篇 幅 所 限 , 这 里 只 对 本 例 需 要 的 函数 进行 简单 的 讲解 。 如 果 读 者 对 上 述 函 数 仍 有 疑 
问 , 还 可 以 通过 help 函数 得 到 更 加 详细 的 帮助 。 下 面 编 写 一 个 函数 用 于 判断 弹 球 运动 的 下 一 
个 位 置 的 坐标 和 运动 方向 等 参数 。 这 里 将 其 定义 为 getnextball, 该 函数 的 实现 代码 如 下 所 示 。 


function [newxdata ,newydata ,newpositionvnewdire] = … 
Betnextball(xdatavydata,prepositionvpredire,dx,dy) 
% function [newxdata newydata ,newpositionvnewdire] = 
% getnextball(xdata,ydata,preposition,predire,dx,dy) 
% 计 算 弹 球 运行 的 下 一 个 位 置 
newxdata= xdata + dx * cos(predire) 3 
newydata= ydata + dy * sin(predire); 
newposition = preposition 二 [dx * cos(predire) dy* sin(predire)]; 
哆 弹 球 碰 到 右 壁 面 
f newposition(1) + 0.03+ 0.001 二 =1 
dl = newposition 一 preposition; 
dlCD= 一 dl(D， 
newdire= atan2(d1(2) ,d1(1)) 
retumy 
end 


% 弹 球 磁 到 左 壁面 
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首 newposition(1) -0.03 一 0.001 一 =0 
d1 = newposition 一 preposition 
dlD= 一 dl1(D); 
newdire= atan2(d1(2),d1(1))3 
returny 

end 


% 弹 球 磁 到 上 各 面 

if newposition(2) -0.03 一 0.001 一 =0 
dl = newposition -preposition 
dl1(22= 一 d1(2) 
newdire= atan2(d1(2) ,d1(1))5 
retumi 

end 


% 弹 球 磁 到 下 壁面 

if newposition(2) + 0.03+ 0.001> 
dl1 = newposition -prepositiony 
dl(2) = -dl1(2); 
newdire= atan2(d1(2),d1(1)); 
retummy 

end 

% 没 有 碰 到 任何 壁面 

newdire= predirey 


另外 ,在 Matlab GUI GUIDE 自动 生成 的 函数 ball OpeningFcn 中 加 入 下 面 的 初始 化 代 
码 和 趣味 弹 球 的 运行 程序 。 


% 初 始 化 当前 figure 对 象 
set(gcf,color',[0.5 0.7 0.3]);% 

set(gcf,ndoublebuffer' on) 

% 建 立 并 初始 化 用 于 动画 绘制 的 坐标 轴 
axes(handles.axes1) 4 

set(Bcay'color' ,1 一 [0.50.7 0.3])， 
set(gca,'position',[L[00 1 1]])， 

axis([0 10 1]); 

hold on 

% 绘 制 趣味 弹 球 动画 的 背景 

handles.h1= 仙 ([0110],[0011],1-[0.50.70.3]); 
handles.h2=fill([0110],[0011,1-[0.50.70.3]); 
% 初 始 化 两 个 弹 球 








30/180* 2* pi+ rand(1,1) * 301180* 2* pii% 方 向 
30/180* 2* pi+ rand(1,1) * 30/180 * 2*# pi; 





handles.go= 1; 
handles. position1= [0.5 0.5];% 位 置 
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handles. position2 
handles.dx=0.0 
handles.dy=0.01; 
handles. xdatal= 0.03 * cos(0:0 
handles. ydatal= 0.03 * sin(0:0.1: 


=[0.30.3] 








2 * pi + handles. position1(1);% 弹 球 







* pi + handles. position1(2 
* pi) + handles. position2(1);% 弹 球 2 的 区 域 坐标 
handles.ydata2= 0.03 * sin(0:0.1:2 * pi) + handles. position2(2)， 





handles. xdata2 = 0.03 * cos(0:0. 1: 


while handles. go 一 100 
% 计 算 弹 


handles. xdatal ,handles. ydatal ,handles. position1 ,handles. direction1] = 





getnextball(handles. xdatal ,handles. ydatal , 
handles. position1 ,handles. direction1 ,handles, dx 
handles. dy); 
handles. xdata2 ,handles. ydata2 ,handles. position2,handles. direction2] = 
getnextball(handles. xdata2 ,handles. ydata2 , 
handles. position2,handles. direction2 ,handles. dx， 
handles.dy)， 
% 更 新 弹 球 的 位 置 
set(handles.h1,'XDatal ,handles. xdatal,'Ydatal ,handles. ydata1) 
set(handles.h2，XData' ,handles. xdata2,'Ydata' ,handles. ydata2)， 


drawnows 





pause(0.03);% 程序 停 0.03s， 





end 


(4) 采用 Matlab mee 命令 将 ball. m 编译 为 独立 可 执行 文件 

采用 命令 mcc -m ball. m 编译 ball. m, 生 成 独立 可 执行 文件 ball. exe 并 执行 。 其 执行 结 
果 如 图 4-8 所 示 。 由 图 4-8 可 以 看 出 ,由 于 有 一 个 控制 台 程序 的 黑 窗 口 ,因而 大 大 影响 了 程 
序 执行 后 的 效果 。 在 下 节 中 ,通过 采用 Visual C 十 十 编译 ball. m 文件 ,并 采用 将 main 函数 替 
换 为 WinMain 函数 的 做 法 达到 将 Console( 控 制 台 ) 程 序 转换 为 Win32 应 用 程序 以 及 去 掉 控 
制 体 黑 窗口 的 目的 








图 4-8 带 控制 台 窗口 的 ball 程序 运行 结果 
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{s) 采用 Matiab 编译 其 编译 ball. m 文件 

采用 mcc -m ballm 编译 ball. m 文件 以 后 会 生成 balL_main. c .ballL_mcc_component_data c 文 
件 ,注意 ballLmain. c 文 件 中 的 run_main 函数 和 main 函数 ,通过 修改 这 两 个 函数 可 以 达到 去 掉 
控制 台 窗口 的 目的 。 

(6) 将 main 函数 转换 为 WinMain 函数 

要 去 掉 控制 台 窗口 ,需要 将 控制 台 类 型 的 程序 转换 为 Win32 类 型 的 程序 ;因为 Win32 程 
序 的 人 口 函数 为 WinMain, 因 而 需要 将 main 函数 转换 为 WinMain 函数 。WinMain 函数 的 输 
人 输出 参数 与 main 函数 不 同 ,函数 的 主体 部 分 与 main 函数 类 似 。 

/1 * 自动 生成 的 main 函数 被 隐藏 */ 

/xint main(int argcyconst char* * argv) 

{ 

首 (! mclinitializeApplication《 
__MCC _balLcomponent_data. runtime_options, 


__MCC_balLcomponent_data. runtime_option_count) ) 
return 0 


return mcIRunMain(run_mainyargc,argv); 
)》 


/* * 下 面 这 段 程序 经 过 修改 和 自动 生成 的 main 函数 功能 相同 ** / 
int __stdcall WinMain(HINSTANCE hinstance， 

HINSTANCE hPrevinstance， 

LPSTR lpCmdtine， 

int nShowCmd) 


并 (1 mclinitializeApplication( 
__MCC_ball_component_data.runtime_options， 
__MCC_ballLcomponent_data. runtime_option_count) ) 
return 0; 


retum mclgRunMain( run_main,1,&lpCmdLine) ; 

】} 

(7) 修改 run_main 函数 

当 main 函数 替换 为 winmain 函数 以 后 ,会 出 现 一 个 问题 , 即 程序 不 能 自动 获取 ctf 文件 
的 路 径 。 为 了 解决 这 个 问题 ,需要 手工 设 定 ctf 文件 的 路 径 , 即 将 _MCC_ball_component_da- 
ta. path_to_component 变量 的 值 设 置 为 ctf 文件 所 在 的 路 径 ( 用 户 需要 根据 自己 工程 的 情况 进 
行 改动 , 因 为 不 同 工 程 的 etf 文件 是 不 同 的) 。 

修改 后 的 ball_main. e 文件 的 代码 如 下 所 示 ( 这 里 只 列 出 了 run_main 函数 和 winmain 
函数 ) 。 


int run_main(int argcvconst char * * argv) 
{ 
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int _retval; 
* Generate and populate the path_to_component. * 
char path_to_component[(PATH_MAX * 2)+ 1]; 
separatePathName(argv[0] ,path_to_component,(PATH_LMAX* 2)+ TD 
/一 MCC_ballLcomponent_data. path_to_component = path_to_component; 
---MCC_ball component_data. path_to_component="D:\\Matlab\\ 第 3 章 八 采用 Winmain 代替 
Main ; 
诉 (C! balllnitializeC)) 
retum 一 








_retval= mclMain(_mcr_instvargcvargv,"ball" ,1 

i 放 (retval==0 / * no error * /) mclWaitforFiguresToDie(NUULD) ， 
ballTerminate()， 

mclTerminateApplication(); 


return _retval; 
(8) 采用 VC 将 ball_main. ec 编译 为 独立 可 执行 文件 


当 ball_main.e 文件 修改 完成 以 后 ,就 可 以 采用 VC 进行 编译 了 ,编译 步骤 如 下 所 述 。 
@ 首先 通过 VC 建立 一 个 Win32 Application 类 型 的 空 工程 ,如 图 4 -9 所 示 。 


Flles Projects | workspaces | otherDocuments | 





[ 瘦 ATL COM AppWizard 
Cluster Resource Type Wizard 
Custom AppWizard 
Database Project 


DevStudio Add-in Wizard 一 
Extended Stored Proc Wizard 3Matabi 梨 三 章 示 用 Winmain | 吧 
ISAPI Extension Wizard 
Makefile 
MFC ActiveX ControlWizard 
MFC AppWizard [dl 让 Create new workspace 

MFc Appwizard [exel Cr add tp currentworkspace 
ide T Dependency of 


Win32 Console Application 
司 Win32 DynamicLink Library 
避 Wwin32 Static Library 





Platforms: 








图 4-9 建立 Win32 Application 空 工程 
回 将 ball_main. ec 文件 和 ball_mcc_component_data. c 文件 加 入 到 新 建立 的 VC 十 十 工 
程 中 。 
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加 通过 Project| Settings 菜单 项 更 改 VC 十 十 工程 的 设置 。 首 先 通过 link 选项 添加 库 文 
件 : libemlrt. lib libmex. lib libut. lib .mclmcrrt lib libeng. lib libmwlapack. lib.meclcom lib、 
mclxlmain. lib .libfixedpoint. lib libmwservices. lib .mclcommain. lib libdflapack. lib libmat.lib libmx 
lib.mclmecr. lib( 如 图 4 - 10 所 示 )。 然 后 通过 C 十 十 |Precompiled Header 菜单 项 自动 应 用 stdafx h 
文件 (如 图 4- 11 所 示 )。 


Project Settingx 


Settings For |Win32 Debug 了 ] 








二 932.ib Winspool 
dvapi32.ib shell32.iib ole32.ib 
yc32Jib odbccp32.lib 














图 4-10 添加 库 文件 


Project Settings 


Setings For |Win32 Debug “|] | General | Debug cicr+ | Unk | Resources | M 





Categoery |Precompiled Headers “了 ] Beset 
广 Not using precompiled headers 
Automatic use of precompiled headers 


Through header 


Create precompiled header file Lpch 


本 


CUse precompiled header file Lpchj 


一 一 一 一 一 


Projea Options: 








ologo /MLd PW3 jJGm jGX 局 ji0d iD "WIN3210D 
"_DEBUG" 1D "_console" 1/D ”MBCS" iFR'Debugy" 
-pch" PYX'stdafxh' ForDebugr" 


二 ee 


图 4-11 自动 添加 stdafx.h 文件 

















第 4 章 生成 可 独立 运行 的 Matlab 程序 153 








图 编译 得 到 ball. exe 可 执行 文件 。 最 后 运行 ball exe 程序 ,此 时 生成 的 趣味 弹 球 程序 就 
不 会 再 出 现 控制 台 窗 口 ,而 只 剩 下 程序 运行 的 窗口 了 - 
为 了 方便 读者 对 照 和 调试 程序 ,将 ball. mm 的 代码 全 部 列 出 ,如 下 所 示 。 


function varargout = ball(varargin) 

% BALL M- file for ball.f 

%% BALL ,by itself,creates a new BALL or raises the existing 
singleton x . 


H= BALL retumns the handle to a new BALL or the handle to 
the existing singleton * 


BALLCICALLBACK',hObjectveventDatavhandles,. .. ) calls the local 
function named CALLBACK in BALL.M with the given input arguments. 


BALLCIProperty', ,Value'， .. ) creates a new BALL or raises the 
existing singleton * ”Starting from the left,property value pairs are 
applied to the CUI before balLOpeningFunction gets called， An 
unrecognized property name or invalid value makes property application 
stop。 AI inputs are passed to balLOpeningFcn via varargin. 


* See GUI Options on GUIDE's Tools menu， Choose "GUI allows only one 
instance to run (singleton)”- 


凌 深 六 商 凌 混 凌 凌 妆 凌 滋 壮 次 如 站 梁 尿 


% See also: GUIDE,CUIDATA,GUIHANDLES 


9% Edit the above text to modify the response to help ball 


% Last Modified by CUIDE v2.5 30 一 Sep 一 2004 23:17:12 


% Begin initialization code - DO NOT EDIT 

BuiLSsingleton= 1 

BuiLSstate= structCguLName'， mfilename， 
'Bui_Singleton'， guiLSingleton，. 
uiLOpeningFcn' ,@balLOpenineFan, 
'BuLOutputFan'， @balLOutputfcn，. 
'BuLlayoutfan'， [] 
'BuiLCallbade， [CD])， 

if nargin & isstrCvarargin( 1)) 

BuiLState. BuiLCallback = str2funcCvararginf 1))， 
end 


诈 nargout 
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[varargoutf 1:nargout}j] = guiLmainfcn(gui_Statevvarargin{ :))， 
else 

BuiLmainfcn(gui_Statevvarargin{ :)， 
end 
% End initialization code -~ DO NOT EDIT 


% - - - Executes just before ball s made visble 

function balLOpeningFcn(hObject,eventdatavhandiesyvarargin) 

% This function has no output args,see OutputFcn 

% hObject 。 handle to figure 

% eventdata reserved 一 to be defined in a future version of Matlab 
% handles structure with handles and user data (see CUIDATA) 
% varargin command line arguments to ball (see VARARCGIN) 


% Choose default command line output for ball 

handles. output = hObject' 

% 初 始 化 当前 figure 对 象 

set(gcf,icolor ,[0.5 0.7 0.3]);% 

set(gcf,udoublebuffer' ,on)， 

% 建 立 并 初始 化 用 于 动画 绘制 的 坐标 轴 

axes(handles. axes1) 

set(gcay'color',1- [0.50.7 0.3])， 

set(gca,iposition',[[0 0 1 1])， 

axis([0 10 1]); 

hold on 

% 绘 制 趣味 弹 球 动画 的 背景 

handles.h1= 仙 ([0 110],[0011],1-[0.50.70.3]); 
handles.h2=fill([0 110],[0011,1-[0.50.70.3]); 

% 初始 化 两 个 弹 球 

handles. direction1= 301180* 2* pi+ rand(1,1) * 301180 * 2* pii% 方 向 
handles. direction2= 301180* 2* pi+ rand(1,1) * 301180 * 2 * pi 

axis of 

handles.go= 1 

handles. position1= [0.5 0.5];% 位 置 

handles. position2= [0.3 0.3]; 

handles.dx= 0.01; 

handles.dy= 0.01; 

handles. xdatal = 0.03 * cos(0:0. 1:2 * pi) + handles. position1(1):% 弹 球 1 的 区 域 坐标 
handles. ydatal = 0.03 * sin(0:0.1:2 * pi + handles.position1(2)， 
handles. xdata2 = 0.03 * cos(0:0.1:2 * pi) +handles. position2(1);% 弹 球 2 的 区 域 坐标 
handles. ydata2 = 0.03 * sin(0:0. 1:2* piD) + handles. position2(2); 

while handles.go 一 100 
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% 计 算 弹 球 的 运动 的 下 一 个 位 置 
[handles. xdatat,handles. ydatal ,handles. positionl ,handles. direction1] = 
Betnextball(handles. xdata1 ,handles. ydatal ,. . 
handles. positiontvhandles. directionlvhandles.dx， 
handies,dy); 
[handles. xdata2,handles. ydata2 ,handles. position2 ,handles. direction2]= .… . 
getnextball(handles. xdata2 ,handies. ydata2，. 
handles. position2 ,handles. direction2,handles.dx， 
handles.dy)， 
% 更 新 弹 球 的 位 置 
set(handles.h1，XDatal ,handles. xdata1,Ydatal ,handles.ydatal)， 
set(handles. h2，XData',handles. xdata2,'Ydata',handles. ydata2)， 
drawnowi 
pause(0.03)4% 程序 运行 暂停 0.03s, 用 于 控制 弹 球 的 运动 速度 
end 


% Update handles structure 
BuidataChObjecthandles)， 


% UIWAIT makes ball wait for user response (see UIRESUME) 
% uiwait(handles.figureU 


% - - -Outputs from this function are returned to the command line、 
function varargout = ballLOutputfcn(hObjectveventdatayhandles) 

% varargout ”cell array for retuming output args (see VARARGOUT); 
% hObject 。 handle to figure 

和 eventdata reserved 一 to be defined in a future version of Matlab 
% handles Structure with handles and user data (see CUIDATA) 


% Get default command line output from handles structure 
varargout{1} = handles. outputt 


function [newxdatanewydatanewpositionvnewdire]= . 
getnextball(xdatavydatavprepositionvpredire ,dxvdy) 

%%function [newxdata,newydata,newpositionvnewdire] = 

% Betnextballxdatayydata prepositionvpredire,dx,dy) 
双 计 算 弹 球 运行 的 下 一 个 位 置 

newxdata= xdata + dx * cos(predire); 

newydata = ydata + dy * sin(predire); 

newposition = preposition + [dx * cos(predire) dy * sin(predire)]; 

% 弹 球 磁 到 右 壁 面 

放 newposition(1) + 0.03+ 0.001> =1 
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d1 = newposition 一 preposition 
dl(D= -diCD， 
newdire= atan2(d1(2),d1(1)); 
retumi 

end 


% 强 球 磁 到 左 壁面 
if newposition(1) -0.03 一 0.001 一 =0 
di = newposition 一 prepositiony 


dl(D= -dl(D; 
newdire= atan2(d1(2) ,d1CTD)) 
return 

end 

% 弹 球 磋 到 上 壁面 


if newposition(2) -0.03 一 0.001 一 =0 
d] = newposition -preposition 
dl(2)= -dl1(2)， 
newdire= atan2(d1(2) ,d1(1D)) 
returny 


end 


% 弹 球 磁 到 下 壁面 

并 newposition(2) + 0.03+0.001 二 =1 
di = newposition ~ preposition; 
dl(2) = -d1(2)， 
newdire= atan2(d1(2) vd1(1))， 
returny 

end 

% 没 有 碰 到 任何 壁面 


newdire= predire 


2. 去 掉 控制 台 窗 口 的 另 一 种 方法 

除了 可 以 采用 4.1.4 小 节 第 1 部 分 中 将 main 函数 改 为 WinMain 函数 的 做 法 之 外 ,还 可 
以 采用 将 Matlab 编译 完成 的 独立 可 执行 文件 直接 运行 ,并 通过 FindWindows 函数 找到 控制 
台 窗口 并 将 其 隐藏 。 这 样 做 得 好 处 是 可 以 随时 显示 控制 台 窗口 中 Matlab 编译 的 程序 的 运行 
信息 。 本 例 中 仍 采用 plotsin. m 作为 运行 实例 。 

function [= plotsin() 

%function []= plotsin0) 

x= 一 pi:z0.01:pi 

y=sin(x); 

plot(x,y， 十 Ds 
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通过 命令 mcc -m plotsin. m 将 plotsin. m 编译 为 plotsin. exe, 然 后 用 Visual C 十 十 6. 0 
建立 testconsole 对 话 框 应 用 程序 ,如 图 4- 12 所 示 。 其 中 四 个 按钮 的 ID 号 如 表 4 - 2 所 列 


瑟 testcon--- 


表 4- 2 testconsole 按钮 和 ID 对 照 表 




















ID 按钮 名 称 
IDOK 绘图 
IDC_HIDECONSOLE 隐藏 控制 台 
IDC_SHOWCONSOLE 显示 控制 台 
IDCANCEL 退出 














图 4- 12 testconsole 对 话 框 程序 


选择 View1|C 
所 示 。 





ssWizard 菜单 项 实现 上 述 按钮 的 鼠标 单 击 消息 映射 函数 ,如 图 4 - 13 


BFC C1assgizard 
Message Maps | Member Variables | Automation | Activex Events | classmfo | 
Broject 


estconsole 了 crestconsoleDlg 


nc 
D:.WestconsoleDIg.h. DA.WestconsoleDIg.cpp Add Finctor 
Wasesges Delete Function 
[NEISRNiSNiaae | 


IDCANCEL 
IDOK 


Class name: 








Member functions: 





W oninitDialog ON_WM_INITDIALOG 

WwW onok ON_IDOK:BN_CLICKED 

W onPaint ON_WM_PAINT 

W ongueryDragicon ON_WM_OUERYDRAGICON 
LE:BN_CLICKED 


Description: Indicates the user clicked a button 











图 4-13 实现 按钮 的 鼠标 单 击 消息 映射 函数 
下 面 给 出 实现 本 例 的 主要 代码 。 


testconsoleDIg.h : header file 





defined(AFX_TESTCONSOLEDLG_H_A3CCF86E_2545_4E0B_8BDB_32299F4EAE13_ INCLUDED ) 
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# define 
AFX_TESTCONSOLEDLG_H_A3CCF86E_2545_4E0B_8BDB_32299F4EAE13 INCLUDED_ 


并 入 _MSC_VER > 1000 
并 pragma once 

提 endif 

// _MSC_VER > 1000 


II00I00AIAAI000000I0L0000000I0000000000A00AAN0000A000000000000A0LAL 
71/ CTestconsoleDlg dialog 


class CTestconsoleDIg : public CDialog 
t 
// Construction 
public， 
CTestconsoleDIB(CWnd * pparent= NULD)， 1/ standard constructor 


/1/ Dialog Data 
/LAFX_DATACCTestconsoleDIg) 
enum { IDD = IDD_TESTCONSOLE_PIALOG ) 
/1/ NOTE: the ClassWizard will add data members here 
/LAFX_PDATA 


// ClassWizard generated virtual function overrides 
/LAFX_VIRTUALCCTestconsoleDlg) 

Protected: 

virtual void DoDataExchange(CDataExchange * PDX); 。 // DDX/DDY support 
//AFX_VIRTUAL 


public; 
Cstring sCommandline; 
int m_isplotoOk; 

/11 Implementation 

protected， 
HICON m_htcont 


// Generated message map functions 
71/LAFX_MSGCCTestconsoleDIB) 

virtual BOOL OninitDialog() ; 

afx_msg void OnSysCommand(UINT niD,LPARAM IParam) ; 
afx_msg void OnPaint(); 

afx_msg HCURSOR OnQueryDraglcon() ; 

virtual void OnOK() ; 

afx_msg void OnHideconsole( ) ; 

afx_msg void OnTimer(UINT nIDEvent) ; 
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afx_msg void OnShowconsole() ; 
1/ AFX_MSG 
DECLARE_MESSACE_MAP() 

生 


/VIAFX_INSERT_LOCATION} 
/1 Microsoft Visual C++ will insert additional declarations immediately before the previous line. 


#endif // ! defined(AFX_TESTCONSOLEDLG_H__A3CCF86E_2545_4E0B_8BDB_32299F4EAE13 INCLUDED 
办 


V/ testconsoleDlg. cpp implementation file 
LA 


柯 include "stdafx.h” 
井 include“"testconsole.h 
井 include“testconsoleDIg.h” 


间 ifdef _DEBUG 

# 井 define new DEBUC_NEW 
#undef THIS_FILE 

static char THIS_FILEC] = FILE_; 
井 endif 


AIAAAI0IIA0AIAA0AAAAAAAAAAAAALAAAAAAAAAAAAAALAAAAAAAAALAALAAAAALAAAA0LAALLA 
// CAboutDIg dialog used for App About 
char cCormmandLineLMAX_PATHJ， 


class CAboutDIg ， public CDialog 
{ 
publics 

CAboutDlg(O); 


1/ Dialog Data 
VIAFX_DATA(CCAboutDlg) 
enum { IDD= IDD_ABOUTBOX }) 
/AAAFX_DATA 


/TV ClassWizard generated virtual function overrides 
/ALAFX_VIRTUALCCAboutDig) 

protected: 

virtual void DoDataExchange(CDataExchange * PDX)# 7/ DDX/DDYV support 
1/ )AFX_VIRTUAL 
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/Implementation 

protected : 
AVIAFX_MSG(CAboutDIB) 
1/ 用 AFX_MSG 
DECLARE_MESSACE_MAP() 

用 


CAboutDIlg: :CAboutDIg() : CDialog(CAboutDIg: :IDD) 
时 
V//{{AFX_DATA_INITCCAboutDIg) 
/1/)AFX_DATALINIT 


void CAboutDIg: :DoDataExcdhange(CDataExchange wpDX) 
{ 
CDialog: :DoDataExchangeCpPDX); 
//LAFX_DATA_MAP(CAboutDIB) 
1//))AFX_DATA_MAP 


BEGIN_LMESSACE_MAP(CAboutDIB,CDialog) 
/ALAFX_MSC_MAP(CAboutDIg) 
1/ No message handlers 
/1/)AFX_MSC_MAP 
END_MESSAGE_MAPO 


HUUUUAUUUUAAAAUUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


1// CTestconsoleDlg dialog 


CTestconsoleDIg: :CTestconsoleDIg(CWnd * pParent /* = NUL * /) 
+ CDialog(CTestconsoleDlg: :IDD,pParent) 


/ALLAFX_DATA_INITCCTestconsoleDlg) 
1/ NOTE: the ClassWizard will add member initialization here 
//AFX_DATALINIT 
// Note that Loadlcon does not require a subsequent Destroyicon in Win32 
m_hicon = AfxGetApp() - 二 LoadIcon(IDR_MAINFRAME); 
char curDir[MAX_PATH]; 
:3GetCurrentDirectory(MAX_PATH,curDirj ; 
sCommandLine. Format("%s",curDir]; 
sCommandline + = "\\Vplotsin.exe"; 
m_isplotOk = 0; 
】} 


void CTestconsoleDIg: :DoDataExchange(CDataExchange * pPDX) 
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CDialog: :DoDataExchange(PDX); 
V//{{AFX_DATA_MAP(CCTestconsoleDig) 

/ANOTE: the ClassWizard will add DDX and DDV calks here 
VIA)iAFX_DATA_MAP 


BEGIN_MESSACE_MAP(CTestconsoleDlg,CDialog) 
VA{(AFX_MSC_MAP(CTestconsoleDig) 
ON_LWMLSYSCOMMANDO) 
ONLWMLPAINTO 
ONLWMLQUERYDRACICONC 
ONLBNLCLICKED(IDC_HIDECONSOLE ,OnHideconsole》 
ONLWMLTIMERO 
ONLBNLCLICKED(IDC_SHOWCONSOLE,Onshowconsole) 
//))AFX_MSC_MAP 

END_MESSACE_MAP() 


00000000000000A0A000A0000000000000N000A00000L0000A000000N0000000000N0L 
71/ CTestconsoleDIg message handlers 


BOOL CTestconsoleDlg: :OninitDialog() 
{ 
CDialog: :OninitDialog()， 


V/V Add "About. . . ”menu item to systemn menu. 


/1/ IDM_LABOUTBOX must be in the system command range. 
ASSERT((IDML_ABOUTBOX & 0xFFFO) == IDM_ABOUTBOX) + 
ASSERT(IDMLABOUTBOX 一 0xF000) 


CMenu wpSysMenu = CetSystemMenu(FALSE); 
if (pSysMenu ! = NUUL) 
{ 
CString strAboutMenui 
strAboutMenu.LoadString(IDS_ABOUTBOX)， 
放 (1 strAboutMenu. sEmpty()) 
psysMenu- 一 AppendMenu(MF_SEPARATOR) 
pSysMenu-- >AppendMenu(MF_STRING,IDM_ABOUTBOX,strAboutMenu)， 


711 Set the icon for this dialog。 The framework does this automatically 
711 when the application's main window is not a dialog 
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Setlcon(m_hlcon ,TRUE); // Set big icon 
Setlcon(m_htcon,FALSE); V/ Set small icon 


// TODO: Add extra initialization here 


return TRUE // return TRUE unless you set the focus to a control 


void CTestconsoleDlg: :OnsysCommand(UINT nID,LPARAM IParam) 
{ 
if (CnID & OxFFFO) == IDM_ABOUTBOX) 
{ 
CAboutDIg digAbouty 
dlgAbout. DoModal(); 


else 


{ 
CDialog, ,OnSysCommand(niID ,IParam)， 


】} 


11 fyou add a minimize button to your dialog,you will need the code below 
/11 to draw the icon。 For MFC applications using the document/view model， 
/1 this is automatically done for you by the framework、 


void CTestconsoleDlg::OnPaint() 
《 
if (lslconic()) 
{ 
CPaintDC dc(this) ; // device context for painting 


SendMessage(WM_ICONERASEBKCND ,(WPARAM) dc. GetSafeHdc(),0); 


// Center icon in client rectangle 

int cxlcon = CetsystermMetrics(SML_CXICON) 
int cylcon = GetSystemMetrics(CSMLCYICON)， 
CRect recty 

GetClientRectC&recbD) 

int x= (rect. Width() -cxlcon + TD /25 
= (rect.Height() - cylcon + D) 1/ 25 








V/ Draw the icon 
比 .Drawlcon(xvyvm_hlcon); 
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CDialog: :OnPaint() ; 


/1 The system callks this to obtain the cursor to display while the user drags 
/1 the minimized window. 
HCURSOR CTestconsoleDlg::OnQueryDraglcon() 
下 
return (HCURSOR) m_htcon; 


void CTestconsoleDlg: :OnOK() 
《 
// TODO:， Add extra validation here 


PROCESS_INFORMATION pi; 
STARTUPINFO si= {sizeof(si) ) 


// 启 动 子 进 程 

:3strcpy(cCommandLine,sCommandLine) ; 
CreateProcess(NULL,cCommandLine,NULL,NULL,FALSE,0,NULL,NULL,&si,&pi) 
mL_isplotOk = 1; 

SetTimer(0,100,NULL) ; 

VCDialog::OnOKO 


void CTestconsoleDlg: :OnHideconsole() 
{ 
// TODO: Add your control notification handler code here 


HWND m_hwndPlot = : :findWindow(NULL,sCommandLine) ; 
if(m_hwndPlot! =NULL) 
{ 

:3:ShowWindow(m_hwndPlot,SW_HIDE) ; 


void CTestconsoleDlg: :OnTimer(UINT nIDEvent) 
{ 
/1/ TODO: Add your message handler code here and/or call default 
if(m_ispPlotOk) 
{ 
HWND m_hwndPlot = : :FindWindow(NULL,sCommandLline); 
if(m_hwndPlot! =NULL) 
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{ 
::ShowWindow(m_hwndPlot,SW_HIDE) ; 
} 
m_isplotOk= 0; 
} 
CDialogiiOnTimer(CnIDEvenb ， 
上 } 


void CTestconsoleDlg: :OnSshowconsole() 
{ 

/ TODO: Add your control notification handler code here 
HWND m_hwndplot = : :FindWwindow(NULL,sCommandLine) ; 
if(m_hwndPlot! = NULL) 

{ 





:ShowWindow(m_hwndPlot,SW_SHOW); 
)》 


执行 testconsole 程序 的 结果 如 图 4- 14 所 示 。 


Figure Wo- 
File 


口 东 加 瑟 且 哺 汪 


1 





图 4- 14 testconsole 程序 的 运行 结果 


3. 将 输出 改 到 Windows 窗口 上 

Matlab 编译 后 的 程序 都 运行 在 命令 行 模式 下 ,其 输出 信息 也 都 显示 在 DOS 命令 行 窗口 
中 。 通 过 采用 适当 的 方法 ,虽然 可 以 将 DOS 命令 行 窗口 隐 掉 ,但 是 有 些 有 用 的 程序 输出 信息 
却 看 不 到 了 。 本 节 就 是 通过 一 个 实例 来 说 明 如 何 将 编译 后 的 Matlab 程序 的 输出 信息 输出 到 
一 个 Windows 窗口 上 。 在 codeguru 上 找到 一 个 关于 将 控制 台 程序 的 输入 和 输出 定位 到 一 个 
CEditView 窗口 的 实例 ,其 网 址 是 ， http://www. codeguru、 com/misc/RedirectOutput- 
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ToPipe. shtml。 


下 面 就 是 从 CeditView 派生 的 CshellView 的 源 代 码 。 


[shellview hh 症 二 演 汪 手 手 汪 关 汪 间 生生 关头/ 
并 放 1 defined(AFX_SHELLVIEW_H_10EC4EE4_E283_11D2_9823_004005649FB5_ INCLUDED_) 
# define AFX_SHELLVIEW_H_10EC4EE4_F283_11D2_9823_004005649FB5_INCLUDED_ 


# 井 放 _MSC_VER 二 1000 

划 pragma once 

#endif // _MSC_VER > 1000 
/1 Shellview.h : header fie 
// 


UNAAAAAAAAAAAAAAAAUAAAAAAAAAAAAAAAA 
/1/ CShellview view 


class CShellView : public CEditView 

protected; 
CShellView()， 1/ protected constructor used by dynamic creation 
DECLARE_DYNCREATE(CShellView) 


private; 

HANDLE hChildstdinRd,hChildstdinwr,hChildstdinwrDup，， 
hChildstdoutRd,hChildstdoutWr,hChildstdoutRdDup， 
hsaveStdin,hSaveStdouty 

CWinThread * mLpReadThread: 

DWORD dwProcessid; 


LOGFONT mulf; 
CFont m_deffont; 
// Attributes 
public: 


V// Operations 

public: 
void GetUserlnput( CString& input ); 
void AddTexts( LPCTSTR string ); 


// Dverrides 
7// ClassWizard generated virtual function overrides 
VIAIIAFX_VIRTUALCCShellView) 
protected: 
virtual void OnDraw(CDC* pPDC); 1/ overridden to draw this view 


virtual BOOL PreCreateWindow(CREATESTRUCT& cs); 
/ATAFX_VIRTUAL 


精通 Matlab 与 C/C 十 十 混合 程序 设计 (第 2 版 ) 








71/ Implementation 


protected， 
virtual 一 CshellviewO; 
#ifdef _DEBUG 


virtual void AssertValid() consts 
virtual void Dump(CDumpContext& dc) const; 
划 endif 


71/ Generated message map functions 
protected;， 
BOOL CreateShellRedirect()# 
/VIAFX_MSG(CCShellView) 
afx_msg int OnCreate(LPCREATESTRUCT IpCreateStruct); 
afx_msg void OnDestroy(); 
afx_msg void OnChar(UINT nChar,UINT nRepCnt,UINT nFlags); 
afx_msg void OnKeyDown(UINT nChar,UINT nRepCnt,UINT nflags); 
/AiAFX_MSCG 
DECLARE_MESSAGE_MAP() 
Private 
void AddTexts( TCHAR ch ); 
void WriteToPipe(LPCTSTR line); 
BOOL CreateChildProcess(DWORD& dwProcessld) ; 


static UINT ReadPipeThreadProc( LPVOID pParam ); 
private: 

int CetSelLength() 4 

int GetCurrentPosition(); 

void MoveToEnd(O)， 

int m_rtengthy 
有 


UN 


7/{{AFX_INSERT_LOCATION)) 
1/ Microsoft Visual C++ will insert additional declarations immediately before the previous line. 


#endif 
// ! defined(AFX_SHELLVIEW_H_10EC4EE4_F283_11D2_9B23_004005649FB5_INCLUDED_) 


和 闪 汪 证 后 关 关 亲生 关 亲 Shellview .CPP 间 闪 二 关 关 汪 汪汪 汪 关 得 亲生 抽 人 
/1/ Shellview. cpp : implementation file 
/1/ 


##include "stdafx.h” 
井 include "ShellView.h 
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间 ifdef _DEBUC 

井 define new DEBUG_NEW 
#undef THIS_FILE 

static char THIS_FILE[]= FILE_ 
#endif 


UL 
// CSshellView 


JIMPLEMENT_DYNCREATE(CShellView ,CEditView) 


CShellView: :CSheliView() 
dwpProcessld= DWORD( 一 TD) 
mL_pReadThread= NUUL; 


// Initialize LOGFONT structure 
memset(&m_lf,0,sizeof(m_lPD 3 

muff. ffWeight = FW_NORMAL; 

muf,IfCharSet = GB2312_CHARSET;//ANSL CHARSET; 
muUf. IfOutprecision = OUT_DEFAULT_PRECIS; 
m_jf.JfClipPrecision = CLIP_PEFAULT_PRECIS) 
mulf.IfQuality = DEFAULT_QUALITY; 

mu_lf. HpitchAndFamily = DEFAULT_PITCH | FF_DONTCARE; 
lstrcpy(m_f. FaceName,，_T("Fixedsys" )) 


CShellView: :一 CShellView() 
{ 
)} 


BECGIN_LMESSACE_MAP(CShellView,CEditView) 

/VIAFX_MSC_MAP(CCShellView) 
ONLWMLCREATE() 
ONLWMLDPESTROY() 
ONLWMLCHAR() 
ON_LWMLKEYDOWNO) 
/1/AFX_MSC_MAP 

END_MESSACGE_MAP() 


II00000000A0000000000000000000000I0000000I0NLL00LL00000000000000000L 
/1 CSshellview drawing 


void CSshellView::OnDraw(CDC* pDC) 
{ 
CDocument * pDoc= GetDocument(); 
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// TODO: add draw code here 
) 


AAALAALLA0LLLLLLLLLLLLLLLALLLLLLLLLLLLLLALLLLLALLLLALLALLLLLALLAAALLLLALA 
V// CSshellView diagnostics 


#ifdef _PEBUG 
void CShelIView : :AssertValid() const 
{ 
CEditView: :AssertValid()# 
}》 


void CShellView: :Dump(CDumpContext& dc) const 
{ 
CEditView::Dump(dc)# 
) 
井 endif //_DEBUG 


10000000000000A000000000000A000000A000A0000000000000A000A00000000000O000 
1/ CShellview message handlers 


int CShellView: :OnCreate(LPCREATESTRUCT IpCreateStruct) 
{ 
if (CEditView::OnCreate(IpCreateStruct) = 
retumn 一 1 


二 多 





1/ GetEditCtrl().SetReadOnly( TRUE )# 
DWORD dwstyle= GetWindowLong( GetEditCtrl(). GetSafeHwnd(),GWL_STYLE )# 
if dwsgyle ) 
{ 
dwstyle | = DS_LOCALEDIT; 
SetWindowLong( CetEditCtrl(). CetsafeHwnd() ,GWL_STYLE,dwStyle ) 


if( mudefFont. CreateFontindirect( &mf ) ) 
GetEditCtrl() . SetFont( &m_deffont ); 
这 ! CreateShellRedirect() ) 
retum 一 13 


return 0; 


间 define BUFSIZE 4096 


BOOL CSshellView: :CreateShellRedirect() 
人 { 
SECURITY_ATTRIBUTES saAttr; 
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BOOL fSuccess: 


1V Set the blnheritHandle flag so pipe handiles are inherited- 
saAttrnLength= sizeof(SECURITY_ATTRIBUTES)， 
saAttr.blnheritHandle= TRUE; 

saAttr.IpSecurityDescriptor= NULL; 


1 The steps for redirecting child process's STDOUT: 


LA 1，Save current STDOUT ,to be restored later 

// 2，Create anonymous pipe to be STDOUT for child process. 
// 3. Set STDOUT of the parent process to be write handie to 
// the pipe,so it is inherited by the child process. 

ZL/ 4，Create a noninheritable duplicate of the read handle and 
AL/ close the inheritable read handle. 


// Save the handle to the current STDOUT 
hsavestdout = CetStdHandle(STD_OUTPUT_HANDLE) ; 


1/ Create a pipe for the child process's STDOUT . 
if ! CreatePipe( &hChildSstdoutRd,&hChildSstdoutWry&saAttr,0) ) 
{ 

TRACE0( _TC" Stdout pipe creation failed\n" ) ); 

returmn FALSE; 


711 Set a write handle to the pipe to be STDOUT 
放 1 SetStdHandle(STD_OUTPUT_HANDLE,hChildstdoutwr) ) 
1 

TRACE0( _T("Redirecting SITDOUT failed\nm ) ) 

return FALSE; 


// Create noninheritable read handle and close the inheritable read handle. 


fSuccess = DuplicateHandle( GetCurrentProcessC) ,hChildstdoutRd 
GetCurrentProcess() ， &hChildstdoutRdDup ， 
0， FALSE， 
DUPLICATE_SAME_ACCESS ): 
放 1 fSuccess ) 
{ 
TRACE0( _T("DuplicateHandle failed\n” ) ); 
retum FALSE; 
} 
CloseHandle( hChildstdoutRd )， 


/11 The steps for redirecting child process's STDIN: 
/人 / 1 Save current STDIN,to be restored later 
/1/ 2 Create anonymous pipe to be STDIN for child process. 
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// 3 Set STDIN of the parent to be the read handle to the 


// pipe,so it inherited by the child process. 
/4 Create a noninheritable duplicate of the write handle， 
// and close the inheritable write handie. 


V/ Save the handle to the current STDIN- 
hsaveStdin = CetStdHandle(STD_INPUT_HANDLE)， 


1/ Create a pipe for the child process's STDIN- 
放 ! CreatePipe(C&hChildstdinRd,&hChildstdinwry&saAttr,0) ) 
{ 
TRACE0( _T(" Stdin pipe creation failed\n" ) )， 
return FALSE; 
}》 
// Set a read handle to the pipe to be STDIN- 
放 1 SetStdHandle(STD_INPUT_HANDLE,hChildstdinRd) 》 
{ 
TRACEOC _T("Redirecting Stdin failed\n" ) ); 
returm FALSE; 
》 
LV Duplicate the write handle to the pipe so iis not inherited 
Success = DuplicateHandle( CetCurrentProcess() ,hChildstdinWwr'， 
GetCurrentProcess() ,&hChildstdinWrDup， 
0,FALSE， /V not inherited 
DUPLICATE_SAME_ACCESS ) 
if 1 fSuccess ) 
{ 
TRACE0( -TCDuplicateHandle failed\n" ) ) 
return FALSE; 
》 
CloseHandlehChildstdinWr); 


// Now create the child process-. 
放 ! CreateChildProcess(dwProcessid) ) 
{ 
TRACE0( _T(" CreateChildProcess failed\n" ) ); 
return FALSE; 
)} 
/V After process creationvrestore the saved STDIN and STDOUT 
放 1 SetStdHandle(STD_INPUT_HANDLE ,hsavestdin) ) 
《4 
TRACE0( -TCRe 一 redirecting Stdin failed\n ) ) 
retumn FALSE; 
】} 
if ! SetStdHandle(STD_OUTPUT_HANDLE,hsaveStdout) ) 
{ 
TRACE0( _T("Re 一 redirecting Stdout failed\n ) ); 
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retumn FALSE; 
)} 
m_pReadThread= AfxBeginThread( 〈AFX_THREADPROC)ReadPipeThreadProc,(LPVOID)this )， 
全 ! m_pReadThread ) 
TRACE0( _T("Cannot start read- redirect thread! \m ) ) 
return FALSE; 
上 
return TRUE 


BOOL CShellView: : CreateChildProcess(DWORD& dwProcessld) 
上 

PROCESS_INFORMATION piProcinfo， 

STARTUPINFO siStartlnfoy 


VV Set up members of STARTUPINFO structure. 
ZeroMemory( &siStartlnfo,sizeof(STARTUPINFO) ); 
SiStartlnfo. cb = sizeof(STARTUPINFO); 


SiStartinfo. dwFlags = STARTF_USESTDHANDLES; 
SiStartinfo. hSstdinput = hChildstdinRd; 

siStartinfo. hStdOutput = hChildstdoutWry 
siStartinfo. hStdError = hChildSstdoutWrs 


TCHAR shellCmd[_MAX_PATH]， 
这 ! GetEnvironmentVariable(_T("Comspec" ) ,shellcmd,_MAX_PATH) ) 
return FALSE 
#ifdef _UNICODE 
_tcscat( shellCmd,T(C /U ) ) 
间 else 
_tcscat( shellcmd,_T("” /A") )， 
井 endif 
1 Create the child process. 
BOOL ret = CreateProcess 
《 


NUU， 
shellcmd， /11 applicatin name 

NuUuL， 1 process security attributes 
NUUL， 1// primary thread security attributes 
TRUE， 71/ handles are inherited 
DETACHED_PROCESS,// creation fags 

NUUL， /1/ use parents environment 

NUUL， 1 use parents curent directory 
&cistartlnfo， // STARTUPINFO pointer 

&piProcinfo 


) 5 /receives PROCESS_INFORMATION 
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信 ret ) 
{ 
dwProcessld = piproclnfo. dwProcessld; 
}》 
retumn rety 


void CSshellView: :WriteToPipe( LPCTSTR line ) 
{ 
DWORD dwWritten; 


WriteFfile( hChildstdinWrDup ,line,_tcslen(line) * sizeofCTCHAR) ， 
&dwWritten,NULL ); 


UINT CShellView: :ReadPipeThreadProc( LPVOID pParam ) 
{ 
DWORD dwRead; 
1 TCHAR chBuf[BUFSIZE]; 
CShellView * pView = (CShellView * )pParami 





TRACE0( _T(" ReadPipe Thread begin run\n" ) ) 
for( 5 ) 
人 { 
if ! ReadFile( pView - 之 hChildStdoutRdDup,chBuf, 
， BUFSIZE,&dwRead,NULL) | | dwRead ) 
breaki 
chBuf[dwRead/sizeof(TCHAR)] = _TCNO) 
pPView- >AddTexts( chBuf ); 
pView- >munLength= pView- >CetEditCtrl() .SendMessage( WML_CETTEXTLENGTH )， 





}》 

CloseHandle( pView -二 hChildStdinRd)， 
CloseHandle( pView - 二 hChildSstdoutWn) 
CloseHandle( pView 一 二 hChildstdinWrDup ); 
CloseHandle( pView -二 hChildstdoutRdDup )， 
pView- 二 mLpReadThread= NUUL; 

pPView- 二 dwProcessld=DWORD( 一 TD 
pView -- 二 PostMessage( WMLCLOSE ); 

return 1 


void CShellView: :OnDestroy() 
{ 
if dwProcessld! =DWORD(-TD) ) 
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HANDLE hProcess = OpenProcess( PROCESS_ALL_ACCESS,FALSE,dwProcessld ); 
if hProcess ) 
{ 

TerminateProcess( hProcess,0 ) 

CloseHandle( hProcess )# 


】} 

if m_pReadThread ) 

{ 
TerminateThread( mL_pReadThread - 之 m_hThread,0 ); 
delete m_pReadThready 

}》 

CEditView: :OnDestroy()# 


void CShellView: :AddTexts(LPCTSTR string) 
{ 

MoveToEnd(O); 

GetEditCtrl() . Replacesel( string ) 4 


void CShellview: :AddTextsCTCHAR ch) 
人 

TCHAR string[2]; 

string[O] = chy 

string[1]= _TCNO)， 

AddTexts( 〈(LPCTSTR)string )， 


void Cshellview: :OnChar(UINT nChar,UINT nRepCnt,UINT nflags) 
{ 
int nPos = CetCurrentPosition() 4 
全 nChar==8 && nPos 一 =muntength ) 
returnt 
if rpPos<m_ntength ) 
MoveToEnd(O); 
CEditView: :OnChar(nCharvnRepCntvnFlags)， 
放 nChar==13 ) 
{ 
Cstring input; 
GetUserlnput(input); 
WriteToPipe( input )， 
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void CShellView: :OnKeyDown(UINT nChar,UINT nRepCnt,UINT nFlags) 
{ 

从 nChar== VK_PELETE ) 

{ 

这 GetCurrentPosition() 一 munLength ) 
returny 
j 
CEditView: :OnKeyDown(nChar,nRepCntnFlags)， 


void CShellView: :MoveToEnd() 

{ 
int nLen= GetEditCtrl() . SendMessage( WMLGETTEXTLENGTH ); 
GetEditCtrl() . SetSel( nLenvnLen ); 


int CShellView: :CetCurrentPosition() 

{ 
GetEditCtrl() .Setsel( 一 1, 一 TD) 
int nstartvnstopi 
GetEditCtrl() . GetSel(nstartynstop); 
return nstartf 


void CShellView : :CetUserlnput(CString &input) 
{ 
int where = GetCurrentPosition(); 
HLOCAL hBuffer = GetEditCtrl() .GetHandle()， 
if hBuffer ) 
{ 
LPCTSTR szBuffer= (LPCTSTR)LocalLock(hBuffer) 
if szBuffer ) 
{ 
input = CString( szBuffer + m_nLength,(where 一 munLength) ) 3 
LocalUnlock( hBuffer ); 


int CShellView: :CetSelLength() 
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int nstartvnstop: 
GetEditCtrl() . GetSel(nstartynstop); 
return (pstart 一 nstop) 


BOOL CShellview: :PreCreateWindow(CREATESTRUCT& cs) 
{ 

return CEditView: :PreCreateWindow(cs); 
了 


F 面 就 在 CShellView 的 基础 上 实现 将 Matlab 程序 的 输出 重 定向 到 Windows 窗口 上 。 
该 例 的 实现 步骤 如 下 所 述 。 
@ 首先 建立 一 个 Visual C 十 十 6. 0 的 单 文档 工程 ,工程 名 为 testredirectoutput, 然 后 将 
shellview. cpp 和 shellview. h 加 入 到 新 建 的 工程 中 来 。 
@@ 修改 testredirectoutputApp. cpp 文件 中 的 InitInstance 函数 ,将 : 
CSingleDocTemplate * pDocTemplate; 
pDocTemplate = new CSingleDocTempiate( 


IDR_MAINFRAME， 
RUNTIME_CLASS(CTestredirectoutputDoc)， 
RUNTIME_CLASS(CMainFrame)， /1 main SDI frame window 
RUNTIME_CLASS(CTestredirectoutputview)) 4 

AddDocTemplate(pDocTemplate); 

修改 为 : 


CSingleDocTemplate *pDocTemplate; 
pDocTemplate = new CsingleDocTemplate( 


IDR_MAINFRAME， 

RUNTIME_CLASS(CCTestredirectoutputDoc)， 
RUNTIME_CLASSCCMainFrame) ， VV main SDI frame window 
RUNTIME_CLASSCCShellView))， 


AddDocTemplate(PDocTemplate); 


这 样 做 的 目的 是 将 文档 模板 默认 的 CtestredirectoutputView 类 改变 为 所 需要 的 Cshell- 
View 类 。 

@@ 从 工程 中 删除 testredirectoutputView. h 和 testredirectoutputView. h, cpP 文件 ,重新 
编译 工程 ,如 果 出 现 引 用 testredirectoutputView. h 文件 的 错误 ， 直接 将 # include“testredi- 
rectoutputView. h" 删 除 即 可 。 

图 修改 shellview. cpp 的 CreateChildProcess 函数 ,如 下 所 述 。 

V// Create the child process- 

BOOL ret = CreateProcess 

( 
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NULL， 

shellcmd， applicatin name 

NULL， process security attributes 
NULL， primary thread security attributes 
TRUE， handles are inherited 
DETACHED_PROCESS,// creation flags 

NULL， use parent's environment 

NULL， use parent's current directory 
&sistartinfo， STARTUPINFO pointer 

&piprocinfo 


); receives PROCESS_INFORMATION 


其 中 ,将 shellCmd 改变 为 自己 要 运行 的 控制 台 程 序 exe 文件 的 路 径 ,在 本 例 中 设 为 "plotrand\\ 
plotrand. exe", 即 plotrand. exe 相对 testredirectoutput 工程 的 路 径 。 如 果 指定 路 径 中 的 可 执 
行文 件 不 存在 , 则 会 出 现 如 图 4 - 15 所 示 的 错误 提示 。 





testredirectoutput 司 ] 





图 4-15 控制 台 可 执行 文件 路 径 无 效 时 存在 的 信息 
回 重新 编译 工程 ,然后 运行 程序 ,就 会 出 现 如 图 4 - 16 所 示 的 运行 儿 中 
可 以 看 出 ,通过 CshellView 类 , 即 可 实现 将 Matlab 编译 后 的 控制 台 程序 的 执行 结 果 输 出 到 
Windows 窗口 上 的 功能 ， 





) Figure 机 o- 
文件 ) 轴 酸 中) 查看 中 各 屿 0D 
口 术 目 加 
Eracting GTF archive- TIS -RE 
Size of your application。 Please wait- 
.CTF arghtoe extractton conplete 
alumc 1 through 7 





81A7 。 9.9958 。 9.1278 。 昌 .913A 
Columns 8 through 1 

5869 9.9575 。 9.9649 9.1576 
Columns 15 through 21 


8963 。 9.1n19 。 8.8218 。 9.9157 


columns 22 through 28 





图 4-16 将 Matiab 程序 输出 重 定向 到 Windows 窗口 上 
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S$.1 在 Visual C 十 十 中 调用 Matlab 引擎 


Matlab 允许 用 户 通过 Matlab 引擎 调用 Matlab 的 函数 ,即将 Matlab 当 作 应 用 程序 进行 
数据 计算 的 引擎 。Matlab 提供 了 一 系列 操作 Matlab 引擎 的 API 函数 ,通过 这 些 API 函数 ， 
用 户 可 以 充分 发 挥 Matlab 进行 矩阵 计算 的 优势 ,这 样 ,应 用 程序 的 计算 功能 交 给 Matlab 引擎 
完成 ,而 界面 部 分 则 可 以 采用 VC 十 十 来 实现 。 这 便 为 应 用 程序 的 实现 提供 了 很 大 的 灵活 性 。 


5.1.1 API 函 数 介绍 


1，int engClose( Engine * ep) ; 

此 函数 用 于 退出 Matlab 引擎 。 

2. int engEvalString( Engine * ep,const char * string) ; 

此 函数 用 于 使 Matlab 引擎 执行 字符 串 string 中 的 表达 式 。 

3. mxArray * engGetVariable( Engine * ep,const char x* name) ; 

此 函数 用 于 从 Matlab 引擎 工作 空间 中 复制 名 字 为 name 的 变量 。 

4， int engGetVisible( Engine * ep ,bool * value) ; 

此 函数 用 于 判断 Matlab 引擎 工作 窗口 是 否 可 见 。 

S，Engine * engOpen( const char * startcmd) ; 

此 函数 用 于 启动 一 个 Matlab 引擎 ,在 Windows 操作 环境 下 startcmd 参数 必须 为 
NULL。 

6、Engine x engOpenSingleUse( const char * startcmd ,void * dcom,int x retstatus) ; 

此 函数 用 于 启动 一 个 只 允许 用 户 使 用 的 Matlab 引擎 ,在 Windows 系统 中 startcmd 和 
dcom 参数 始终 为 NULL,retstatus 返回 engOpenSingleUse 函数 的 执行 状态 。 

7. int engOutputBuffer( Engine * ep,char * p,int n) ; 

此 函数 用 于 设置 Matlab 引擎 的 输出 内 存 , 存 储 engEvalString 函数 后 的 输出 结果 。 其 中 
n 表示 设置 的 输出 内 存 可 以 存放 的 字符 个 数 , 如 果 输 出 结果 的 字符 串 大 于 n, 则 只 存储 前 n 个 
字符 。 

8、int engPutVariable( Engine * ep,const char * name,const mxArray * mp) ; 

此 函数 用 于 向 Matlab 引擎 工作 空间 中 写 和 人 一 个 Matlab 阵列 变量 ,其 中 name 为 在 Mat- 
lab 引擎 工作 空间 中 写 人 的 变量 名 字 。 

9. int engSetVisible( Engine * ep,bool value) ; 

此 函数 用 于 设置 Matlab 引擎 工作 窗口 是 否 可 见 的 属性 : 如 果 value 一 true, 则 Matlab 引 
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擎 窗口 可 见 ; 如 果 value 一 false, 则 Matlab 引擎 窗口 不 可 见 。 
5.1.2 Visual C 十 十 调用 Matlab 引擎 的 实例 


下 面 的 实例 展示 了 如 何在 Visual C 十 十 6. 0 MFC 工程 中 调用 Matlab 引擎 。 
首先 创建 一 个 单 文档 的 Visual C 十 十 6. 0 工程 matlabenginetest, 其 中 view 类 的 基 类 选 


为 CFormView。 


添加 到 CMatlabenginetestView 中 的 界面 元 素 及 其 ID 如 表 5- 1 所 列 。 
表 5-1 matlabenginetest CmatlabenginetestView 的 控件 列表 














ID 控件 类 型 界面 元 素 
IDC_StartEngine Burton 启动 Engine 
TIDC_DrawSine Button 计算 并 绘制 sinc 图 像 
IDC_CloseEngine Buuon 关闭 Engine 





1DC_HIDEENGINECHECK 


Check burton 


下 网 藏 Matlab 引擎 窗口 




















IDC_CMDEDIT Edir 命令 输入 编辑 框 

一 
IDC_EVALUATESTRING Burton 执行 用 户 输入 的 命令 
IDC_OUTPUTEDIT Edir Matlab 引擎 结果 显示 编辑 杠 





matlabenginetest 通过 engEvalString 函数 调用 Matlab 引擎 执行 相应 的 命令 计算 并 显示 
sinc 函数 曲线 ,通过 函数 engOutputBuffer 将 m_outbuff 设 为 Matlab 引擎 输出 结果 存储 的 缓 
冲 区 。 需 要 注意 的 是 ,由 于 本 工程 调用 Matlab 引擎 的 API 函数 ,因而 需要 在 工程 设置 中 加 入 
静态 链接 库 libeng. lib。 下 面 给 出 了 matlabenginetest CMatlabenginetestView 实现 的 源 代码 


和 其 运行 结果 (如 图 5-1 所 示 )。 


7V/ matlabenginetestView.h : interface of the CMatlabenginetestView class 


V/ 


II0II0000000000000000000000A00LL0LLALLLLL000LLLLLLLLLLLLLLLLLLLLLL0LLLA 


井 放 1 defined(AFX_MatlabENGINETESTVIEW _H_2BA448E9_DPCB7_4CAB_8DE3_46FED317CD86 INQUDED_) 


间 define 


AFX_MatlabENGINETESTVIEW_H_2BA448E9_DPCB7_4CAB_8DE3_46FED317C086 一 INCLUDED- 


# 并 _MSC_VER > 1000 
间 pragma once 
间 endif // _MSC_VER > 1000 


井 include "engine.h” 


共 define _LMAX_BUFF_CHAR_NUM 2000 


class CMatlabenginetestView : public CFormView 


{ 


protected: // create from serialization only 
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过 无 标题 - aatlabenginetest 
文件 四 ， 编 缉 查看 Q)。 帮助 0 
口 芝 加 瑟 里 





bensine | 计算 并 过 钵 ine 图 入 | 关闭 tagine | 





厂 隐 若 MATLAB 引 擎 窗口 


请 输入 要 执行 的 命令 
[ED SG 





[= Colwms lthroath 10 -0.0000 -0.0003 -0.0006 -0.0010 
-0.0013 -0.0016 -0.0019 -0.0022 -0.0026 。 -0.0029 Columns 11 
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-0.0051 -0.0054 -0.0057 -0.0060 Columns 21 through 30 。 -0， 
oos4 。 -0.0067 -0.0070 -0.0073 -0.0076 -0.0079 -0.0083 -0 
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-0.0101 “-0.0104 -0.0107 -0.0110 -0.0113 -0.0116 -0.0120 
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-0.0138 ” -0.0140 -0.0143 -0.0146。 -0.0149 -0.0152 Columns 51 
(through 80 。 -0.0155 -0.0158 -0.0161 。 -0.0164 -0.0167 -0.0169 
-0.0172 -0.0175 -0.0178 -0.0180 Columns 61 through 70 。 -0， 
ols3 -0.0186。 -0.0189 -0.0191 -0.0194 -0.0197 -0.0199 -0 
ozoz -0.0205 -0.0207 Colomns 71 throuzh 80 -0.0210 -0.0212 

















(a) matlabenginetest 实 例 运行 的 界面 


) Figure 页 o- 1 
Rile Bdit ew Insert Tools indow lelp 
口 芒 园 生 NA 骨 吨 全 
1 








(b) matlabenginetest 实 例 绘制 sinc 函 教 图像 


图 5-1 matlabenginetest 实例 


CMatlabenginetestView(); 
DECLARE_DYNCREATE(CMatlabenginetestView) 


publics 
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/AI{AFX_DATA(CCMatlabenginetestView) 

enum { IDD= IDD_MatlabENGINETEST_FORM }; 
CEdit 。 m_outputedit; 

BOOL 。 m_nlsCheck; 

CString 。 m_cmdedit; 

/1/AFX_DATA 


7V Attributes 
publics 
CMatlabenginetestDoc * CetDocument()， 


V/ Operations 
public， 
Engine 。m_ep;//Matlab 引擎 结构 体 
char m_outbuff[_MAX_BUFF_CHAR_NUM];//Matlab 引擎 的 输出 buff 


// Overrides 
/VClassWizard generated virtual function overrides 
/AIAFX_VIRTUALCCMatlabenginetestView) 
public， 
virtual BOOL PreCreateWindow(CREATESTRUCT& cs); 
protected: 
virtual void DoDataExchange(CDataExchange * PDX)， // DDX/DDYV support 
virtual void OninitialUpdate()，// called first time after construct 
virtual BOOL OnPreparePrinting(CPrintinfo * pinfo)， 
virtual void OnBeginPrinting(CDC * PDC,CPrintinfo * pinfo) 
virtual void OnEndPrinting(CDC * PDC,CPrintinfo ”plnfo); 
virtual void OnPrint(CDC * pPDC,CPrintinfo * plinfo); 
1/))AFX_VIRTUAL 


V/ Implementation 
public: 
virtual 一 CMatlabenginetestView(); 
间 ifdef _DEBUG 
virtual void AssertValid() consty 
virtual void Dump(CDumpContext& dc) const; 
井 endif 


protected; 
7]/ Generated message map functions 


protected: 
/AIIAFX_MSG(CMatlabenginetestView) 
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afx_msg void OnCloseEngine(); 
apc_msg void OnDrawSincO; * 
afx_msg void OnStartEngine()， 
afx_msg void OnPaint(); 
afx_msg void OnHideenginecheck(); 
afx_msg void OnEvaluatestring() ; 
afx_msg void OnSize(UINT nType,int cxyint cy); 
1/ )AFX_MSG 
DECLARE_MESSACE_MAP() 
用 


#ifndef _DEBUG 1/ debug version in matlabenginetestView .cpp 

inline CMatlabenginetestDoc * CMatlabenginetestView : :GetDocument() 
{ retum (CMatlabenginetestDoc * )m_pPDocument; } 

并 endif 


LAAALALAALLLALLAAA0LLALLALLAALLAALAALALAALALAA0LAALAALAAAAAAAAA 


V/V/{(AFX_INSERT_LOCATION} 
V/ Microsoft Visual C++ will insert additional declarations immediately before the previous line. 


间 endif 
/1 defined(AFX_MatlabENCINETESTVIEW_HL_2BA448E9_DCB7_4CAB_8DE3_46FED317C086_ INCLUDED_) 


// matlabenginetestView. cpp : implementation of the CMatlabenginetestView class 
A/ 


## include "stdafx.h” 
井 include “matlabenginetest.h” 


# include "matlabenginetestDoc.h” 
提 include "matlabenginetestView .hr 


##ifdef _DEBUG 

# define new DEBUG_NEW 

间 undef THIS_FILE 

static char THIS_FILEDJ = 一 FILE_， 
井 endif 


LU 
V// CMatlabenginetestView 
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1IMPLEMENT_DYNCREATE(CMailabenginetestView,CFormView) 


BECIN_MESSAGE_MAP(CMatlabenginetestView ,CFormView) 
VALUEAFX_MSG_MAP(CMatlabenginetestView) 
ON_BN_LCLICKEDKIDC_CloseEngine,OnCloseEngine) 
ONLBN_CLICKED(IDC_prawsinc,OnDrawsinc) 

ONLBN_CLICKED(IDC _StartEngine,OnStartEngine) 

ONLWMLPAINTO 

ONLBN_CLICKED(IDC_HIDEENGINECHECK ,OnHideenginecheck) 

ONLBNLCLICKED(IDC_EVALUATESTRING,OnEvaluatestring) 

ON_WMLSIZE() 

/LAFX_MSG_MAP 

1/ Standard printing commands 

ON_LCOMMANDKID_FILE_PRINT,CFormView::OnFilePrint) 

ONLCOMMANDKID_FILE_PRINT_DIRECT,CFormview: :OnFilePrint) 

ONLCOMMAND(ID_FILE_PRINT_PREVIEW,CFormView::OnFilePrintPreview) 
END_MESSAGE_MAP() 





0I0I000000II000000000000I000AL0000LL0AL0LLLLLL00LLLLLL00LLLL0LLLLLLLLLLLA 
/1 CMatlabenginetestView construction/ destruction 


CMatlabenginetestView: :CMatlabenginetestView() 
+， CFormView(CMatlabenginetestView: :IDD) 


/ALAFX_DATA_INITCCMatlabenginetestView) 

mu_nlsCheck= FALSE 

m_cmdedit= _TC) 1 

/DAFX_DATALINIT 

1/ TODO: add construction code here 

m_ep=NULL; 

memset(m_outbuff,0，MAX_BUFF_CHAR_NUM * sizeof( char) ) 


CMatlabenginetestView : :一 CMatiabenginetestView() 
{ 
if(m_ep! = NULL) 
证 
engClose{m_ep); 


void CMatlabenginetestView: :DoDataExchange(CDataExchange * PDX) 
{ 


第 5 章 “ Visual C 十 十 调用 Matlab 程序 


183 








CFormview: :DoDataExchange(pPDX) 
/AAAFX_DATA_MAP(CMatlabenginetestView) 
DDX_ControKpDX,IDC_OUTPUTEDIT,m_outputediD 
DDX_Check(pDX,IDC_HIDEENGINECHECK,munlsChedo ， 
DDX_Text(pDX,IDC_CMDEDIT,m_cmdediD ， 
1/))AFX_DATA_MAP 


BOOL CMatlabenginetestView ; :PreCreateWindow(CREATESTRUCT& cs) 
{ 
/1 TODO: Modify the Window class or styles here by modiying 
// the CREATESTRUCT cs 


return CFormView: :PreCreateWindow(cs); 


void CMatlabenginetestView :OnlnitialUpdate() 
{ 
CFormView: :Oninitialupdate()， 
GetParentFrame() - 二 RecalcLayout{); 
ResizeParentToFit() ; 
m_outputedit. SetWindowText(""); 


IAAII000I0000000000000000L00AL0ALLLLLALLLLALA00LL0ALLLLLALLLLLLLLL0LLLLLL 
/1/ CMatlabenginetestView printing 


BOOL CMatlabenginetestView: :OnPreparePrinting(CPrintinfo ”plinfo) 
{ 

V/ default preparation 

return DoPrepareprinting(plnfo) 


void CMatlabenginetestView: :OnBeginPrinting(CDC* /* PDC* /,CPrintnfo* /wplnfo* /) 
{ 
71/ TODO， add extra initialization before printing 


void CMatiabenginetestView: :OnEndPrintingC(CDC * /* pDC * /,CPrintinfo * / “plnfo* 7 
{ 
7]/ TODO: add cleanup after printing 
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void CMatlabenginetestView: :OnPrint(CDC * pDC,CPrintinfo * /* plnfo* /) 
人 
/1 TODO: add customized printing code here 


LU 
// CMatlabenginetestView diagnostics 


间 ifdef _DEBUG 
void CMatlabenginetestView: :Assertvalid() const 
{ 

CFormView: :Assertvalid0O 


void CMatlabenginetestView: :Dump(CDumpContext& dc) const 
{ 
CFormview::Dump(dc)， 


CMatlabenginetestDoc * CMatlabenginetestView: : GetDocument() // non 一 debug version is inline 
{ 
ASSERT(m_pDocument - 二 IsKindOf(RUNTIME_CLASS(CMatlabenginetestDoc) ))， 


return (CMatlabenginetestDoc * )m_pDocumenti 
} 


#endif //-DEBUG 


UL 
// CMatlabenginetestView message handlers 


void CMatlabenginetestView: :OnCloseEngine() 
1/ TODO: Add your control notification handler code here 
engClose(m_ep) 
m_ep= NULL; 


void CMatlabenginetestView: :OnDrawsinc() 
{ 
// TODO: Add your control notification handler code here 
if(m_ep! =NULL) 
{ 
// 计 算 sinc 函数 并 绘制 sinc 函数 的 图 像 
engEvalstring(m_ep,"x1=0.01:0.01:10* pi 
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engEvalString(m_ep， 
engEvalString(m_ep， in{x1) ./xT) 
engEvalString(m_ep,， in(x2) ./x2") 
engEvalString(m_ep, "plot([x2 xl1],[y2 yT)"); 

// 产 生 一 个 错误 ,从 而 验证 Matlab 引擎 的 输出 已 经 被 捕获 
engEvalstring(m_ep, "10"); 

m_outputedit. SetWindowText(m_outbuff) ; 


一 1D*pi:0.01:-0.01 ); 











AfxMessageBox( "请 启动 Matiab 引 





,MB_OK,NULL) ; 


void CMatlabenginetestView: :OnStartEngine() 
{《 
1/ TODO: Add your control notification handler code here 
// 打 开 Matlab 引擎 
m_ep= engOpen{NULL) ; 
engOutputBuffer( m_ep,m_outbuff，MAX_BUFF_CHAR_NUM) ; 


void CMatlabenginetestView: :OnPaint() 
{ 
CPaintDC dcCthis) ;1/ device context for painting 


/1/ TODO: Add your message handler code here 
// Do not call CFormview: :OnPaint() for painting messages 


void CMatlabenginetestView: :OnHideenginecheck() 
{ 
1/ TODO: Add your control notification handler code here 
// 改 变 Matlab 引擎 窗口 的 显示 状态 
if(m_ep == NULL) return; 
UpdateDatal true) ; 
engSetvisible( m_ep,! m_nlsCheck) ; 


void CMatlabenginetestView: :OnEvaluatestring() 

{ 
// TODO: Add your control notification handler code here 
// 执 行 用 户 输入 的 命令 
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UpdateDatattrue) ; 
LPSTR pstr= m_cmdedit. GetBuffer( m_cmdedit. GetLength( ) ) ; 
if(m_ep! =NULL) 
{ 
engEvalstring(m_ep,(const char * )pstr); 
m_outputedit. SetWindowText(m_outbuff) ; 


else 
AfxMessageBox( "请 启动 Matlab 引 蕴 ",MB_OK ,NULL) ; 


void CMatlabenginetestView: :OnSize(UINT nTypeint cxvint cy) 
{ 
CFormView: :OnSize(nType,cxycy)# 


/1/ TODO， Add your message handler code here 
// 父 窗口 改变 的 时 候 ， 
// 改 变 Matlab 引擎 输出 结果 Edit 窗口 的 大 小 
if(: :lsWindow(m_outputedit. GetsafeHwnd())) 
{ 
m_outputedit. MoveWindow(0,140,cx,cy- 140,true); 


5.2 Visual C 十 十 中 调用 Matlab * .m 函数 编译 后 的 
动态 链接 库 


通过 Matlab 编译 器 的 mcc 命令 ,可 以 将 Matlab * . m 文件 直接 编译 为 动态 链接 库 供 
Visual C 十 十 调用 。 以 plotsinc 函数 为 例 , 采 用 命令 mcc -B csharedlib:libsincplot sincplot, m 
将 其 编译 为 动态 链接 库 ,生成 的 文件 列表 如 图 5-2 所 示 。 


%sincplot.m 文件 

function [Y] = sincplot(m) 
x1=0.01:0.01:ny pi; 
YI1=sin(x1D). /xl 

x2= -new pi:0.01:-0.01; 
和 2=sin(x2)./x2 

y=[y2 y1]; 

plot(Lx2 x1],y); 


接着 ,创建 一 个 Visual C 十 十 单 文档 的 工程 testsincplot_dll, 然 后 通过 选择 Project| Settings 
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菜单 项 打开 的 对 话 框 中 的 link|input 选项 ,将 库 
文件 libemlrt_ lib .Hibmex. lib libut lib .mclmerrt. 
lib、libeng。 lib、libmwlapack， lib、mclcom。 lib、 
meclxlmain. lib .libfixedpoint. lib 、libmwservices. 
Hib、mclcommain。 lib、libdflapack。 lib、libmat、 lib、 
libmxe lib、mclmcr， lib、libsincplot. lib 加 入 到 
Visual C 十 十 6.0 工 程 中 (这 些 库 文件 在 
《matlabroot)NexternNlib\win32\microsoft 目 录 
下 ), 其 中 libsincplot lib 为 上 述 步 又 中 由 
Matlab 编 译 器 生成 的 文件 之 

将 libsincplot dll 复制 到 Windows 系统 目录 
(system 或 者 system32) 或 者 testsincplot_dll 工程 
的 debug 目录 下 ,将 libsincplot. hlibsincplot lib 
和 libsincplot. ctf 文件 复制 到 testsincplot_dll 
工程 的 源 文件 目录 下 ,并 将 libsincplot h 文件 
添加 到 工程 中 。 

为 工具 条 添加 一 个 按钮 ,其 ID 命名 为 
ID_PLOTSINC, 如 图 5-3 所 示 。 

通 过 ClassWizard 在 CTestsincplot _ 
dllView 中 为 其 添加 消息 响应 。 


Toolbar Butten Properties 


人 妇 时 General | 
ID: JiD_PLOTSINC 


Width: [16 攻 








文件 E) 锭 加 区 ) 查看 @ 


@@ 旺 : 母 - 方 


地 址 回忆 D:\zoor 3.2I 本 | 加 和 
名 称 

ER 

加 libsinecplot.e 

图 libsincplot. etf 

冯 libsincplot al1 


国 libsincplot exp 
图 libsineplot exports 
加 libsineplot h 
图 libsineplot li 
图 libsineplot prj 
加 libsincplot_mcc_component_data ce 
mccExcludedyiles.log 
eadme txt 
站 sineplot m 
要 二 下 
13 个 对 象 可 282 了 
图 5-2 plotsinc. m 文件 编译 为 动态 链接 
库 的 过 程 中 生成 的 文件 列表 





Prompt | 丛 制 sinc 函 数 








图 5-3 添加 1D_PLOTSINC 工具 条 按钮 
在 消息 响应 中 加 入 调用 mlxSincplot 函数 的 代码 如 下 所 示 - 


信 pArrayIn== NUUL) 


pArrayin = mxCreateDoubleMatrix(1,1,rmREAL); 


构造 一 个 [3 10] 的 随机 的 输入 参数 


* (mxCetpr(pArraylIn)) = 10 * (0.3+0.7* rand() * 1.0/RAND_MAX)5 


mlfsincplot(1,&pArrayOut,pArraylin); 
CDC* pDC= GetDC()， 
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k=0; 
CString testStr 
for(i= 05i 生 mxCetNumberOfElements(pArrayOut) ;i++ ) 
{ 
teststr. Format(" %6.2f ，* (mxCetPr(pArrayOut) +D) 
pDC- >TextOut(5+jx 40,5+kx 15vteststD 
j++l 
ij>>20) 
1 
j=0; 
kk 二 + 


)》 
其 中 ,pArrayIn 和 pArrayOut 为 在 Testsincplot_dlliView. h 中 声明 的 CTestsincplot_dllView 
类 中 的 mxArray * 类 型 的 公有 变量 。 

在 OnDraw 函数 中 加 入 在 屏幕 上 显示 mlxSincplot 输出 数据 的 代码 如 下 所 示 。 


ipArrayOut! = NULL) 
{ 


inti=0y 
intj=0k=0i 
CString testStr 


for(i= 0;i 二 mxGetNumberOfElements(pArrayOut) 5i++ ) 
{ 
testStr. Format(” %6.2f ，* (mxCetPr(PArrayOut) + D)5 
pDC- > TextOut(5+j* 40,5+k* 15vtestStrD) + 
j++ 
放 j 之 20) 
{ 
j=0; 
k++# 


)} 


编译 并 运行 其 结果 如 图 5-4 所 示 。 

此 时 还 可 以 通过 FindWindow、ModifyStyle 和 MoveWindow 函数 将 生成 的 Matlab 图 形 
绘制 窗口 嵌入 到 CTestsincplot_dllView 窗口 中 ,这 样 在 某 些 情况 下 可 以 使 整个 程序 的 运行 风 
格 更 加 协调 。 

为 此 ,添加 一 个 工具 栏 按钮 ID _PLOTINVIEW ,并 为 CTestsincplot_dllView 添加 一 个 公 
有 变量 HWND m_plotH ,通过 选择 View|ClassWizard 菜单 项 为 CTestsincplot_dllView 添加 
一 个 按钮 ID_PLOTINVIEW 的 消息 响应 函数 ,并 为 此 消息 响应 函数 添加 如 下 代码 。 
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过 无 标题 - testsincplot_dl1 
文件 到 ) 编辑 下 ) 查看 GD) 帮助 中) 





) Figure 








图 5-4 testsincplot_dll 工程 执行 结果 


void CTestsincplot_dllView: :OnPlotinview() 


TODO: Add your command handler code here 
mu_plotH = : :FindWindow(NULL,"Figure No. 1 )3 


is :lsWindow(m_plotH)) 





将 CTestsincplot_dllView 设 为 Matlab 窗口 的 父 窗口 
:Setparent(m_plotHvthis 一 一 GetSafeHwnd()) 
Cwnd* pwnd=NULL; 
pwWnd= FromHandleCm_plotH) 

CRect rect 
GetClientRect(&recbD ， 

改变 Matlab 绘图 窗口 的 大 小 使 其 与 父 

pWnd-- 二 MoveWindow(&rect,false); 
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修改 Matlab 绘图 窗口 的 风格 ,去 掉 其 边框 和 标题 栏 ,并 使 其 保持 窗口 的 
/最 大 化 状态 
pWnd-- 二 ModifySstyle(WS_CAPTION| WS_BORDER,WS_MAXIMIZE,0); 


为 了 使 Matlab 窗口 的 大 小 能 够 随 其 父 窗口 客户 区 大 小 的 变化 而 变化 , 重 载 CTestsinc- 
plot_dllView WM_SIZE 消息 的 处 理 函 数 OnSize。 重 载 后 的 OnSize 函数 如 下 所 示 。 
void CTestsincplot_dllView: :OnSize(UINT nType'int cxvint cy) 


CView::On5ize(nTypevcxvcy); 


// TODO: Add your message handler code here 
放 sslsWindow(Cm_plotH)) 


:MoveWindow(m_plotH,0,0,cxcyvtrue)， 
重新 编译 修改 后 的 testsincplot_dll 工程 ,其 运行 结果 如 图 5-5 所 示 。 
7 无 标题 - testsincplot_dl1 


文件 @) 辅 概 G) 查看 G) 帮助 0 
口 咏 占 中 玉 8 人 加 


























图 5-5 将 Matlab 窗口 嵌入 到 MFC View 窗口 中 
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下 面 给 出 testsincplot_dll 工程 CTestsincplot_dllView 的 全 部 实现 代码 。 

VV testsincplot_dllView.h : interface of the CTestsincplot_dllView class 

A/ 
AAAA6LAAAAAAAAAAAALAAAAAAALAAAAAAAAALALAAALLLAAAAALALALLLAAAALAAA0LLALAAAA 


井 站 ! defined(AFX_TESTSINCPLOT_PUVIEW_HL__53FF041D_20C9_45D2_AC6F 77E15108B51A_INCLUDED ) 
# define AFX_TESTSINCPLOT_PLLVIEW _H_53FF041D_20C9_45D2_AC6F_77E15108B51A__INCLUDED_ 


提 放 _MSC_VER > 1000 
提 pragma once 
# 井 endif // _MSC_VER > 1000 


划 include "libsincplot.h” 


class CTestsincplot_dllView : public CView 

{ 

protected: /1 create from serialization only 
CTestsincplot_dllView(); 
DECLARE_DYNCREATE(CTestsincplot_dllView) 


/Attributes 


public， 
CTestsincplot_dlIDoc 。 CetDocument()， 


7// Operations 

publics 
mxArray * pArrayln; 
mxArray * pArrayOuti 
HWND m_plotH; 
int m_isInview; 


/1 Overrides 
71/ classWizard generated virtual function overrides 
/AHAFX_VIRTUALCCTestsinqploL_dlView) 
public: 
virtual void OnDraw(CDC * pDC)， // overridden to draw this view 
virtual BOOL PreCreateWindow(CREATESTRUCT& cs); 
protected: 
virtual BOOL OnPreparePrinting(CPrintnfo ”pinfo) : 
Virtual void OnBeginPrintingC(CDC * pPDC,CPrintinfo * plnfo); 
virtual void OnEndPrinting(CDC * pDC,CPrintinfo * pinfo); 
VANAFX_VIRTUAL 
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71/ Implementation 
public: 
virtual 一 CTestsincplot_dllView(O); 
#ifdef _DEBUG 
Virtual void AssertValid() const; 
virtual void Dump(CDumpContext& dc) const; 
并 endif 


Protected: 


// Generated message map functions 
protected 
WIIAFX_MSC(CTestsincplot_dllView)》 
afx_msg void OnPlotsinc() ; 
afx_msg void OnPlotinview(); 
afx_msg void Onsize(UINT nType,int cx,int cy); 
1A))AFX_MSG 
DECLARE_MESSACE_MAP() 
用 


#ifndef _DEBUCG 1/ debug version in testsincplot_dllview. cpp 
inline CTestsincplot_dlIDoc * CTestsincplot_dllview: :CetDocument() 
{ retum (CTestsincplot_dlDoc * )m_pDocumenty } 


间 endif 


HUA 


/AI{AFX_INSERT_LOCATION)} 
1/ Microsoft Visual C++ will insert additional declarations immediately before the previous line- 


林 endif 
1// ! defined(AFX_TESTSINCPLOT_DLLVIEW_H__53FF041D_20C9_45D2_AC6F_77E15108B51A_INCLUDED_) 


7V testsincplot_dllView. cpp : implementation of the CTestsincplot_dllView class 
ZL/ 


#include "stdafx.h” 
井 include "testsincplot_dll.h” 


井 include "testsincplot_dllDoc.h” 
##include "testsincplot_dllView.h” 
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并 ifdef _DEBUG 

并 define new DEBUG_NEW 

并 undef THIS_FILE 

static char THIS_FILEC] = FILE_; 
井 endif 


UL 
V/ CTestsincplot_dllview 


IMPLEMENT_DYNCREATE(CTestsincplot_dllView,CView) 


BEGIN_LMESSACE_MAP(CTestsincplot_dllView,CView) 
V/{{AFX_MSC_MAP(CTestsincplot_dlView) 
ONLCOMMAND(ID_PLOTSINC,OnPlotsinc) 
ON_LCOMMAND(ID_PLOTINVIEW,OnPlotinview) 
ONLWMLSIZEO) 

//))AFX_MSC_MAP 

VV Standard printing commands 

ONLCOMMANDKID_FILE_PRINT,CView: :OnFilePrint) 

ONLCOMMANDKID_FILE_PRINT_DIRECT,CYView: :OnFilePrint) 

ONLCOMMAND(ID_FILE_PRINT-PREVIEW',CView::OnFilePrintPreview) 
END_MESSAGE_MAP() 


hhAAAAALAAAAALALLALLALLALALAALLLLLAAALLLLLLLLLAALAALLLAAAAAALAAAALALAAAAAAAAAALAN 
// CTestsincplot_dllView construction/ destruction 


CTestsincplot_dllView: :CTestsincplot_dllView() 
{ 
1/ TODO: add construction code here 
libsincplotinitialize( ) ; 
this- >>pArraylIn= NULL; 
this- 二 pArrayOut = NULL; 
m_islnView=0; 


CTestsincplot_dllView: :一 CTestsincplot_dllView() 
{ 
if(pArrayln) 
{ 
mxDestroyArray(PpArrayin) ; 
学 
if(pArrayOut) 
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mxDestroyArray(pArrayOut) ; 
】} 
libsincplotTerminate() ; 


BOOL CTestsincplot_dllView: :PreCreateWindow(CREATESTRUCT& cs) 
{ 
/1/ TODO: Modify the Window class or styles here by modifying 
/the CREATESTRUCT cs 


return CView: :PreCreateWindow(cs); 


II00A0000A00AAI000AA0AA00A00A0A00LA0AALLALALALLLLLLLLLLALLLLLLLLL0LLALLA 
// CTestsincplot_dllView drawing 


void CTestsincplot_dllView: :OnDraw(CDC* pPDC) 
下 
CTestsincplot_dllDoc * pDoc= GetDocument(); 
ASSERT_VALID(pPDoc); 
/1/ TODO: add draw code for native data here 
if(m_isinView== 1) 


人 





CString testStr; 
for(i=0;i 一 mxGetNumberOfElements(pArrayOut)ii++ ) 
{ 
testStr. Format("%6.2f"，* (mxGetpPr(pArrayOut) + 间 ); 
pDC- =TextOut(5+j* 40,5+k > 15,testStr); 
j++1 
疼 (jj 一 20) 
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II0000I0000000I00000000000000000000000000000000000000000000000000000000 
/11 CTestsincplot_dllview printing 


BOOL CTestsincplot_dllView: :OnPreparePrinting(CPrintinfo * plnfo) 
{ 

1 default preparation 

returm DoPreparePrinting(pinfo); 


void CTestsincplot_dllView: :On8BeginPrinting(CDC * / * PDC* /,CPrintnfo* /7*plnfox /) 
{ 
// TODO: add extra initialization before printing 


void CTestsincplot_dllview: :OnEndPrinting(CDC * 1 * pPDC* /,CPrintinfo* /1* plnfoy /) 
! 
/1/ TODO， add cleanup after printing 


AIAA0AAAAAAAAILAA0AAAAAALAAAAALAAAAAALLAAAAALALLLAAALAALLALLLALLALLAALLLAALALA 
1// CTestsincplot_dllView diagnostics 


## ifdef _PEBUC 
void CTestsincplot_dlIView: :AssertValid() const 
{ 

CView::AssertValid() 


void CTestsincplot_dllView : :Dump(CDumpContext& dc) const 
CView::Dump(dc); 


CTestsincplot_dllDoc * CTestsincplot_dllView: :GetDocument() // non - debug version is inline 
党 

ASSERT(m_pDocument - 二 skindOf(RUNTIME_CLASS(CCTestsincplot_dlIDoc) ))， 

return (CTestsincplot_dlIDoc * )m_pDocument; 
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# 井 endif //_-DPEBUG 


000I000000I0A0000000000000I0000000000L0I00AI00I0LLI0LI00000000I0000 
71/ CTestsincplot_dllView message handlers 


void CTestsincplot_dllview: :OnPlotsincO7 
{ 
1/ TODO: Add your command handler code here 
if(pArrayin== NULL) 
{ 
pArrayin = mxCreateDoubleMatrix( 1,1,mxREAL) ; 
}》 
// 构 造 一 个 [3 10] 的 随机 的 输入 参数 
* (mxGetPr(pArrayinj)= 10 * (0.3+0.7* rand() * 1.0/RAND_MAX) ; 
mlfSincplot(1,&pArrayOut,pArrayln) ; 
CDC* pDC= GetDC(); 
inti=0; 
intj=0,k=0; 
CString testStr; 
for(i= 0ii 一 mxGetNumberOfElements(pArrayOut) ;i++ ) 
人 








testStr.Format("%6.2f"，* (mxGetPr(pArrayOut) +iD); 
pDC- 二 TextOut(5+j* 40,5+k * 15,testStr); 
j++， 
if(j 一 20) 
{ 
ji=0; 
K++ 


void CTestsincplot_dllView: :OnPlotinview() 

{ 
// TODO: Add your command handler code here 
mu_plotH indWindow(NULL, "Figure No. 1 ); 
if(: :lsWindow(m_plotH)) 
{ 





// 将 CTestsincplot_dliview 设 为 Matiab 窗口 的 父 窗口 
:3:SetParent(m_plotH ,this 一 二 GetSafeHwnd()); 
CWnd * pWnd=NULL; 

pwWnd= FromHandle(m_plotH) ; 

CRect recti 
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GetClientRect(&rectj; 
pWnd- 二 MoveWindow(&rect,false) ; 


pwnd- 二 ModifyStyle( WS_CAPTION|WS_BORDER,WS_MAXIMIZE,0]; 
m_isinview= 1; 
Invalidate(TRUE] ; 


void CTestsincplot_dllView: :OnSizeCUINT nTypevint cxvint cy) 
{ 


CViews:On5ize(nTypevcxcy); 


/1 TODO: Add your message handler code here 
if(::1sWindow(m_plotH) ) 





MoveWindow(m_plotH,0,0,cxycy,true); 





第 6 章 “Matlab Dotnet Builder 与 
Visual C 十 十 


6.1 COM 基础 知识 


6.1.1 COM 组 件 概述 


COM(Componet Object Model) 是 以 组 件 为 发 布 单元 的 对 象 模型 。 由 于 COM 是 建立 在 
二 进 制 级 别 上 的 规范 ,所 以 组 件 对 象 之 间 的 交互 规范 不 依赖 于 任何 特定 的 开发 语言 。COM 
用 于 不 同 语言 的 协作 开发 是 非常 方便 的 。COM 开发 架构 是 以 组 件 为 基础 的 ,可 以 把 组 件 看 
做 是 用 于 "搭建 "软件 的 积木 块 , 采 用 这 种 开发 模式 除了 跨 语言 的 特性 以 外 ,还 可 以 带 来 很 多 好 
处 ,例如 采用 组 件 替 换 可 以 使 得 软件 系统 的 升级 换代 更 加 简单 ,可 以 在 多 个 不 同 的 软件 开发 应 
用 中 重复 利用 同一 个 组 件 等 。 

如 图 6 -1 (a) 所 示 , 开 发 人 员 可 以 采用 不 同 的 开发 语言 开发 组 件 A.B\C.D、E 等 ,通过 组 
件 开发 模式 ,可 以 像 搭 积木 一 样 将 它们 组 合成 一 个 具有 完整 功能 的 应 用 软件 。 当 开发 人 员 发 
现 组 成 应 用 软件 的 某 些 组 件 模块 需要 更 新 时 ,又 可 以 像 替 换 某 块 积木 块 一 样 将 需要 更 新 的 组 
件 替 换 下 来 ,如 图 6 - 1 (b) 所 示 。 不 仅 如 此 ,一 旦 组 件 开 发 完成 以 后 ,通过 将 不 同 组 件 的 重新 
调整 和 整合 ,可 以 重复 利用 组 件 开 发 不 同 的 应 用 软件 ,如 图 6 - 1 (c) 所 示 。 


























[arA ] [fc ] | [afA ] [akc ] 
[aa ] [arp ] [affe ] [ Wi8fD ] 
组 件 E 
四 
































图 6-1 利用 组 件 进行 开发 的 示意 图 
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6.1.2 COM 组 件 开 发 的 基础 知识 


1. 对 象 和 接口 

COM 是 面向 对 象 的 开发 模型 ,COM 对 象 的 概念 与 C 十 十 对 象 的 概念 相似 。 面 向 对 象 的 
开发 模式 是 将 数据 和 功能 按照 某 种 意义 组 合 到 一 起 形成 类 ,对 象 就 是 类 的 实例 。 面 向 对 象 的 
开发 模式 更 加 贴近 人 们 对 事物 的 认识 。 

接口 是 一 组 函数 的 集合 。 接 口 是 COM 对 象 与 外 界 交互 的 唯一 方式 ,因为 COM 对 象 是 对 
现实 世界 某 种 事物 的 抽象 ,所 以 其 接口 的 所 有 函数 在 某 种 程度 上 有 其 相关 性 。 

如 图 6-2 所 示 ,COM 组 件 由 一 个 或 多 个 COM 对 象 构成 ,COM 对 象 通过 接口 与 使 用 
COM 的 客户 进行 交互 。 使 用 COM 组 件 的 程序 被 称 为 COM 客户 ,COM 对 象 对 于 COM 客户 
来 说 是 不 可 见 的 ,因而 COM 客户 只 能 通过 接口 来 访问 COM 对 象 。 














接口 A1 接口 A2 ”接口 B1 接口 B2 


图 6-2 COM 对 象 与 接口 


2. COM 在 Windows 平台 下 的 实现 方式 
(1) COM 的 存在 形式 
COM 最 早 应 用 在 OLE 中 ,由 于 COM 开发 模型 特有 的 优点 ,现在 COM 已 经 渗透 到 了 
Windows 的 各 个 角落 ,为 人 熟知 的 DriectX 多 媒体 开发 包 就 建立 在 COM 组 件 技术 之 上 。 
COM 在 Windows 平台 上 以 动态 链接 库 的 形式 存在 。 采 用 动态 链接 库 可 以 由 COM 组 件 客户 
来 决定 什么 时 候 加 载 所 需要 的 COM 组 件 。 
(2) COM 组 件 的 标志 方式 
但 是 ,由 于 COM 组 件 的 类 别 多 种 多 样 , 开 发 厂商 也 有 很 多 ,如 何 来 区 别 这 众多 的 COM 组 
件 呢 ? 如 果 采 用 命名 的 方式 ,免不了 有 很 多 重复 的 情况 发 生 , 因 而 COM 规范 采用 一 个 128 位 
长 度 的 常量 来 标志 COM 组 件 。 由 于 这 个 常量 的 位 数 过 长 ,开发 语言 的 编译 器 一 般 都 不 支持 
这 么 长 的 数据 类 型 ,因而 采用 一 个 结构 体 来 表示 这 128 位 数 : 
typedef struct _CUID { 
DWORD Datal; 
WORD ”Data2; 
WORD ”Data3y 
BYTE Data4[8]; 
} GUID， 


同样 ,为 了 唯一 地 标志 组 件 的 接口 ,COM 规范 也 采用 这 种 128 位 GUID 来 作为 接口 的 标 


志 。 为 了 区 分 组 件 和 接口 的 标志 ,一 般 将 COM 组 件 的 GUID 标志 称 为 CLSID ,将 接口 的 标志 
称 为 ID。 打 开 VC 十 十 6.0 的 include 目录 中 的 mtypes. h, 可 以 找到 下 面 的 定义 ， 
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typedef GUID CLSID; 
typedef GUID ID; 


接 下 来 的 问题 是 各 地 开发 者 都 在 使 用 GUID, 如 何 生成 唯一 不 重复 的 GUID 呢 ? 这 个 也 
不 用 担心 ,Microsoft VC 十 十 提供 的 UUIDGEN. exe 和 GUIDGEN. exe 有 助 于 完成 这 个 工 
作 。 而 且 , 采 用 这 种 方法 可 以 保证 3400 年 以 前 生成 的 GUID 不 会 有 重复 的 可 能 。 在 VC 十 十 
中 ,接口 的 ID 和 COM 组 件 的 CLSID 一 般 采 用 如 下 的 方法 定义 : 

const 1ID NID_IMyCom 三 

OxOF29F908 ,Ox00BF,Ox4AOC,10xB1,0xED,0x44,0xE3,0xD0,0x70,0x24,OxA2}j); 
const CLSID CLSID_MyCom = 
10xC7COBFA5 ,OxBFC9,0x41A4 ,10x8E,OxC7 ,0x60,0x5D,OxB8,0x3E,OxEB,OxDO)) 


GUID 记忆 起 来 很 困难 ,所 以 有 些 计算 机 语言 采用 ProgID 来 标志 组 件 ,ProgID 是 指定 给 
某 个 组 件 的 友好 的 名 字 ,ProgID 应 该 与 CLSID 一 一 对 应 ,但 是 由 于 是 一 种 人 为 命名 的 方法 ， 
因而 ProgID 的 唯一 性 有 可 能 得 不 到 保证 。 

(3) COM 组 件 与 注册 表 

客户 需要 创建 COM 组 件 时 ,需要 知道 COM 组 件 相对 应 的 动态 链接 库 的 存在 位 置 。 在 
Windows 操作 系统 中 ,注册 表 是 组 件 客户 和 组 件 都 能 够 访问 的 共享 信息 。 因 此 ,COM 组 件 通 
过 注册 将 其 对 象 和 接口 信息 存放 到 注册 表 中 ,这 样 客户 创建 组 件 时 就 可 以 通过 访问 注册 表 来 
获取 其 需要 的 信息 。 在 Windows 中 单 击 “ 开 始 "| 运 行 "系统 菜单 ,输入 regedit 命令 打开 注册 





表 编 辑 器 ,搜索 MWComUtil, 可 以 找到 MWComUail. MWUtil7. 6, 这 就 是 MWComUtil 组 件 
的 ProgID, 其 CLSID 如 图 6-3 所 示 。 






注册 表 编 辑 器 同上 品 jj| 
文件 @， 久 各 邓 ) 查看 D 收藏 亚 @) 和 助 ) 
田 国 Conutil.ImSparseT.6 总 || 和 名称 关 型 ”数据 

号 和 本 CR 寺 请 Srwet 国 业 以 ) REG_SZ “145A19794-D29E-4764-9911-8A9970F6CDC8)] 
四 加 mcoutil mstructT 4 
图 加 ConUtil .MsStruet7.6 
回 mcomil mweil 

国 cusm 

回 caryer 
由 回 mrConUtil WUtil7.4 
已 国 mcComutil WUtil7.6 
















几 固 mLZD.IEPDCtrl.1 
震 回 YLGAUGE LOsageCtrl 1 

二 回 muLED FnLEDCtrl 1 

图 加 mgODOMETER 0doneterCtr 
图 四 mWPERCENT. PercentCtrl 

图 加 WSANP lswmpctrl 1 

末 加 msSAIP .swmpctrl.2 

困 国 msLIDER SliderCtrl.1 

田 国 msTRIP.Stripctrl.1 









Tepenies 委 


妈 产 || 本 珊 
我 的 电脑 VEY_CLASSES_RDOTWIWYComUtil.WYVAilT.6\CLSID 





图 6-3 注册 表 中 的 ProgID 和 CLSID 
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3. VC 十 十 中 调用 COM 组 件 

(1) HRESULT 类 型 

COM 组 件 的 接口 函数 用 HRESULT 来 向 其 客户 报告 执行 情况 ,HRESULT 不 同 于 布尔 
值 ,一般 不 能 采用 直接 比较 的 方法 来 判断 某 个 函数 是 否 执行 成 功 ,如 下 面 的 做 法 就 可 能 带 来 
问题 。 


HRESULT hr; 
hr= IMylInterface 一 >>MyFun(…) 3 
if(hr==E_FAIL)// 不 要 采用 这 种 做 法 
{ 
returnt 
二 
在 COM 中 ,采用 SUCCEEDED 和 FAILED 宏 来 判断 函数 是 否 执行 成 功 , 如 : 


HRESULT hry 

hr= IMyInterface 一 二 MyFun(…); 

放 FAILED(hr) )// 正 确 的 做 法 
retum 


》 


HRESULT 与 布尔 值 不 同 的 地 方 在 于 , 查 函数 执行 失败 以 后 ,采用 HRESULT 可 以 返回 
多 种 失败 的 原因 。 在 程序 调试 时 ,往往 需要 知道 COM 失败 的 具体 原因 ,可 以 通过 下 面 的 方式 
显示 COM 的 错误 信息 。 
void ErrorMessage(LPCTSTR str,HRESULT hr) 
{ 
void * pMsgBuf; 
FormatMessage( 
FORMAT_MESSAGE | FORMAT_MESSACE_FROM_SYSTEM， 
NULL， 
hr， 
MAKEFAILED(LANG_NEUTRAL,SUMLANCL_DEFAULT)， 
《LPTSTR) &pMsgBuf， 
0， 
Nu 
cout 一 一 sr < 一 "rm 
cout< 一 "Eror(" 一 一 hex 一 一 hr 一 < 一) 
二 二 (LPTSTR)pMsgBuf 一 一 endl; 
LocalFreeC(pMsgBuf)} 
】} 


(2) 字符 串 
因为 COM 要 实现 独立 于 语言 的 高 度 通用 性 ,所 以 COM 采用 UNICODE 字符 串 。 下 面 
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是 几 种 常用 的 UNICODE 字符 类 型 的 声明 : 


typedef WCHAR OLECHAR; 
typedef wchar t WCHAR 


要 实现 从 ANSI 到 Unicode 的 转换 ,可 以 采用 MultiByteToWideChar 函数 和 A2W 宏 , 反 
之 则 采用 WideCharToMultiByte 函数 和 W2A 宏 来 实现 。 
{3) CLSID 和 ProgID 的 相互 转换 
CLSIDFromProgID 用 于 通过 COM 组 件 的 ProgID 获取 其 CLSID, 其 函数 声明 如 下 
所 示 。 
HRESULT CLSIDFromProglID( 
LPCOLESTR IlpszpProglID， //VPointer to the ProgID 


LPGCLSID pclsid /Pointer to the CLSID 
) 


ProgIDFromCLSID 用 于 通过 COM 组 件 的 CLSID 获取 其 ProgID, 其 函数 声明 如 下 所 示 : 
HRESULT ProglIDFromCLsID( 
REFCLSID cksid， /VCLSID for which the ProgID is requested 
LPOLESTR * IplpszproglD 
//Address of output variable that receives a 
// pointer to the requested ProglD string 
) 
(4) AddRef() 、Release( ) .QueryInterface( ) 
所 有 的 COM 接口 都 是 从 接口 IUnknown 派生 来 的 ,TIUnknown 接口 的 定义 如 下 。 
interface IUnknown 
{ 
virtual HRESULT _ _stdcall Querylinterface(const NID & iid,void ** ppv) =0; 
virtual ULONG _ _stdcall AddRef() = 0 
virtual ULONG _ stdcall Release() = 0; 
}》 


所 以 ,所 有 的 COM 接口 都 至 少 要 实现 AddRef、 Release 和 QueryInterface 三 个 函数 。 

AddRef 和 Release 用 于 控制 COM 对 象 的 生命 周期 , 即 COM 从 创建 到 销毁 的 时 间 。 由 
于 COM 组 件 是 在 需要 时 通过 动态 链接 库 动态 地 加 载 的 ,COM 对 象 客户 在 创建 COM 组 件 对 
象 时 并 不 能 保证 只 有 一 个 客户 在 使 用 COM 组 件 对 象 ,所 以 当 COM 对 象 客户 在 对 COM 组 件 
对 象 访问 完毕 后 ,也 不 应 该 马上 销毁 COM 组 件 ,因为 此 时 很 可 能 还 有 其 他 客户 在 使 用 此 
COM 对 象 。 因 此 COM 就 采用 引用 技术 机 制 来 实现 其 生命 周期 的 自我 控制 。 当 增加 一 个 客 
户 时 ,COM 对 象 的 引用 计数 就 增加 1, 当 减少 一 客户 时 ,COM 对 象 的 引用 计数 就 减少 1; 只 有 
当 COM 对 象 的 引用 计数 减 为 0 时 ,COM 才 会 自己 销毁 自己 。 客户 从 组 件 获得 一 个 接口 时 ， 
调用 AddRef, 用 于 增加 一 个 引用 计数 ; 当 客 户 使 用 完 某 个 接口 以 后 ,调用 Release, 用 于 减少 一 
个 引用 计数 。 

COM 组 件 中 的 接口 数目 可 能 有 很 多 ,如 何 才能 获得 客户 需要 的 接口 呢 ? 由 于 COM 组 件 
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与 客户 的 所 有 交互 都 是 通过 接口 来 实现 的 ,因而 任何 接口 的 获得 只 能 通过 接口 来 实现 。 
QueryInterface 函数 就 是 用 来 查询 组 件 是 否 支 持 某 个 特定 的 接口 的 。 当 然 ,接口 查询 的 依据 
就 是 接口 的 标志 ID。 根 据 COM 规范 ,客户 可 以 通过 QueryInterface 函数 获得 任何 它 想 要 的 
COM 组 件 提 供 的 接口 。 查 询 接口 的 示例 程序 如 下 。 

// 定 义 接口 

IMyinterface * plnterface= NULL; 

// 创 建 接口 和 其 他 操作 省 略 


// 定 义 要 查询 的 接口 

1IMyQueryinterface * pPQueryinterface = NULL; 

HRESULT hr; 

hr= plnterface - 二 Querylnterface(1ID_MyQueryinterface, (void ** )&pQueryInterface) 


if(SUCCEEDED(hrD ) 
{ 
// 使 用 这 个 接口 


}》 


(5) 在 Visual C 中 调用 COM 组 件 的 步骤 
Visual C 中 调用 COM 组 件 的 步骤 如 下 所 述 。 
@ 初 始 化 COM 库 。 
四 得 到 COM 对 象 的 CLSID。 
图 创建 一 个 COM 对 象 的 实例 。 
图 使 用 COM 对 象 。 
@@ 退 出 COM 库 。 
/初始 化 COM 库 
HRESULT Colnitialize( 
LPVOID pyReserved /Reserved; must be NULL 
) 


// 根 据 返回 的 HRESULT 值 来 判断 COM 库 的 初始 化 是 否 成 功 


HRESULT hr 
hr= Colnitialize(NULL) ， 
放 (FAILED(Chr) ) 
{ 
return falses 
》 
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// 得 到 COM 对 象 的 CLSID 
QGLSID CLSID_Myinterface; 
HRESULT hr 
hr = CLSIDFromProgID(L" Myinterface. Myinterface1.0”,&CLSID_Myinterface); 
疼 (FAILED(hr) ) 
{ 
MessageBox(" CLSIDFromProgID 调用 失败 "); 


return false; 


// 创 建 一 个 COM 对 象 的 实例 
IMyinterface * plMyinterface; 
/NID_IMyinterface 接口 IMyinterface 的 NID 
hr = CoCreatelnstance(CLSID_MyInterface,NULL,CLSCTX_ALL， 
NID_IMyinterface,Cvoid ww )&pIMyinterface) 
诈 (FAILEDChr) ) 
{ 
MessageBox(" 创建 IMyInterface 接口 失败 !") 4 
return false; 


// 使 用 创建 的 COM 对 象 


// 退 出 COM 库 
CoUninitialize() 


6.2 ”DotnetBuilder 基础 知识 


6.2.1 配置 Matlab C/C 十 十 编译 器 

如 果 在 使 用 Matlab DotnetBuilder 以 前 还 没有 配置 Matlab C/C 十 十 编译 器 的 话 , 需 要 首 
先 运行 : 

六 mbuid -setp 

然后 再 配置 Matlab C/C 十 十 编译 器 。 
6.2.2 使 用 Matlab DotnetBuilder 


在 Matiab 命令 行 通 过 dotnettool 启动 Matlab DotnetBuilder 图 形 用 户 界面 (通过 deploytool 
也 可 以 实现 Dotnet Builder 的 功能 ) ,如 图 6-4 所 示 。 
采用 Matlab DotnetBuilder 的 第 一 个 步骤 就 是 创建 一 个 新 的 工程 ,在 Matlab DotnetBuilder 中 选 
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RATLAE Builder 


Elle Prolect Buld Component Help 
ProjectFiles 


淹 < 














图 6-4 Matlab DotnetBuilder 图 形 用 户 界面 


择 File | New Project 菜单 项 ,然后 在 弹出 的 New Project Settings 对 话 框 中 填 和 人 相应 的 选项 ,如 
图 6-5 所 示 。 


New Project Setting 


FEETTR 


Class name 








Proiectversion 
110 


Prolect directory 


| bwatab 芝 六 意 mmyrandplottest 





Browse 








eate a singleton RCR 

Build debug version 
回 了 iow verbese eatpa 
GK Cancel 

















图 6-5 建立 一 个 新 的 Matlab DotnetBuilder 工程 
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其 实 采用 mcc 和 mbuild 命令 完全 可 以 实现 DotnetBuilder 的 全 部 功能 ,只 不 过 Matlab 
DotnetBuilder 为 用 户 提供 了 一 组 更 加 友好 的 图 形 用 户 界 面 。 关 于 使 用 mec 和 mbuild 实现 将 
Matlab * .m 文件 编译 为 COM 组 件 的 方法 ,请 参考 mcec 和 mbuild 的 用 法 。 采 用 Dotnet- 
Builder Builder 可 以 实现 将 多 个 * .mm 文件 编译 为 一 个 COM 组 件 ,采用 * . m 文件 可 以 实现 
COM 组 件 的 方法 、 属 性 和 事件 。 

1. 实现 COM 组 件 的 方法 

COM 组 件 的 方法 可 以 用 Matlab 函数 来 实现 ,首先 建立 一 个 Matlab 函数 ,如 ， 

function [out] = myrandplotCn) 

%%function [out] = myrandplot(n) 

global randplotcolor; 

if length(n) 二 1 

n=nCTD* 

end 

out=rand(1,n); 

if isempty(randplotcolor 

randplotcolor=[0 0 1; 

end 

plot(out ,lcolor ,randplotcolon) ; 


然后 将 其 保存 为 myrandplot. m 文件 ,再 选择 Project | Add File 菜单 项 或 者 直接 单 击 工 
具 栏 上 的 Add File 工具 按钮 ,将 myrandplot. m 添加 到 新 建 的 组 件 类 中 ,如 图 6 -6 所 示 。 


查找 范围 加 :| 已 rsflottest 了 + 外 余 图 - 


一 一 


局 =e 
站 oreanoen ] 
] 








文件 类 型 :人 Elez Ce) 己 





图 6-6 添加 myrandplot. m 到 组 件 类 中 


2. 实现 COM 组 件 的 属性 
COM 组 件 的 属性 可 以 通过 声明 global 变量 实现 ,在 myrandplot 中 声明 了 一 个 global 变 
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量 randplotcolor。 另 外 ,还 需要 添加 SetRandPlotColor 和 GetRandPlotColor 两 个 函数 实现 对 
COM 组 件 属性 的 访问 。 

function [out] = getplotcolor() 

% function [] = setplotcolorCcolor) 

global randplotcolor; 

out = randplotcolor; 


function [= setplotcolor(color) 

%function [] = setplotcolor(color) 

global randplotcolor; 

randplotcolor = color; 

然后 选择 通过 Project | Add File 菜单 项 或 者 直接 单 击 工具 栏 上 的 Add File 工具 按钮 ,将 
getplotcolor, m 和 setplotcolor. m 添加 到 新 建 的 组 件 类 中 。 

3. 编译 COM 组 件 

通过 选择 Build | COM Object 菜单 项 编译 当前 工程 的 COM 组 件 ,如 图 6-7 所 示 。 











Ele Broject Component Help 
ProjectFiles- NET Object Und status: 
FE 
ProlectFl 。 ExceyCOM Object 

= 二 2 区 Clear Stalus 

@ ME QpenBulldLog 
























] 
| 
图 6-7 DotnetBuilder 编译 COM 组 件 
6.3 Visual C 调用 DotnetBuilder 生成 的 组 件 


Visual C 调用 Dotnet Builder 生成 组 件 的 过 程 如 下 所 述 。 
@ 建立 一 个 VC 十 十 6.0 MEFC 对 话 框 工 程 myrandplotestvc。 
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四 在 VC 十 十 6.0 中 选择 Tools | OLE/COM Object Viewer 菜单 项 ,出 现 如 图 6 - 8 所 示 
的 对 话 框 。 
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图 6-8 OLE/COM Object Viewer 对 话 框 


加 选中 新 建 Matlab Dotnet Builder 组 件 myrandplottest, 然 后 右 击 ,在 弹出 的 右键 快捷 菜 
单 中 选择 View Type Information 菜单 项 ,出 现 如 图 6 -9 所 示 的 对 话 框 。 

图 在 ITypeLib Viewer 对 话 框 中 选择 File | Save As 菜单 项 ,然后 选择 * .h 和 *.c 文 
件 , 分 别 保存 为 myrandplottest_1_0. h 和 myrandplottest_1_0.c 文件 ,如 图 6- 10 所 示 。 

回 选择 Project | Add To Project | Files 菜单 项 ,将 myrandplottest_1_0. h 和 myrand- 
plottest_1_0.e 文 件 添加 到 工程 中 。 同 时 ,将 src 目录 下 生成 的 mwcomtypes. h 文件 添加 到 工 
程 中 。 

@@ 选择 Tools | Options | Directories 菜单 项 ,设置 VC 十 十 使 用 Matlab Dotnet Builder 
生成 的 COM 组 件 需要 的 头 文件 路 径 , 如 图 6 - 11 所 示 。 在 include files 中 加 入 : 

<Matlab root 一 \Vextern\include\ 


一 Matlab root 二 \VexternNinclude\win32 


在 lib files 中 加 入 下 面 两 个 目录 : 


二 Matlab root> \VexternNlib\win32\microso 信 
二 Matlab root 二 \ extermn\lib\winB2\microsoft \ Debug 





@@ 设置 工程 Myrandplottestvc: 选 择 Project | Settings | C 十 十 | Precompiled Headers 
菜单 项 ,在 弹出 的 Project Settings 对 话 框 的 C/C 十 十 选项 卡 中 选中 Automatic Use of pre- 
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ITypeLib Yiewer 


[LA Cenerated .IDI file 
ceoclass myrandplottestclass ”| (by the OLECOM Object 


二 Inyrantplottestclass 护 a 


由 spinterface Inyrandplottestc | typelib filenane 
加 Methods myrandplottest_l_0.dl1 
9? Inherited Interfaces 


interface Imyrandplottestelass | [ uuid(1CAB6EC3_81B1-_ 
m MT1ags 4A29-A222-21CD8CBA2617) . 
INWF1ags Versiocn(1.0), 
getplotcolor 1 去 
"myrandplottest 
myrandplot ype Iibzazy") 
setploteolor 


m 
m 
m 
m 
m NCRYaitForpigures 1ibrary myrandplottest 
m randplotcolor 

m 
B.9 


randplotcolor AA TILib AAA 


TILib : OLE Autonation 
Inherited Interfaces {00020430-0000200002 
c000-0000000000463 


imnnr+ 1ih 





图 6-9 ITypeLib Viewer 对 话 框 





保 让 在世: | 已 distrit 了 + 白 余 力 - 


局 bin sa 
目 wyrandplottest_1_.0.h 









文件 名 加 janaplottest_1.0 Le |] 
人 关于 CE 









图 6-10 ITypeLib Viewer 中 保存 程序 对 话 框 
compiled headers 单 选项 ,并 将 header 设 为 stdafx. h, 如 图 6- 12 所 示 。 
@@ 在 CMyrandplottestvcDlg 中 加 入 公共 变量 Imyrandplottestclass x* m_pTest。 
@ 在 CMyrandplottestvcDlg 的 OnJnitDialog ( ) 函数 中 加 入 调用 COM 组 件 的 初始 化 
代码 。 
四 在 编辑 CMyrandplottestvcDlg 的 对 话 框 资源 ,添加 IDTEST( 测 试 ) 和 IDQUIT( 退 出 ) 
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Options 


Editor | Tabs | Debug | compatibilty | Build 。 Directories | Source CD 


Platform: Show directorics for 
[win3z 司 meudemles 





Directories: 


DAWProqram Files\Microsoft Visual Studio\WVC98WNCLUDE 
DAProqram Files\Microsoft Visual StudioWVC98\MFCVNCLUDE 
DAProqram Files\Microsoft Visual StudioWVC98WTLVNCLUDE 
DAWMATLABR2007AWEXTERNVMNCLUDEYWIN32 
FFT2_FOR_VC6\NFFT2 FOR VC++ 6.0\HEADERS 














图 6-11 设置 工程 头 文件 和 库 的 路 径 


Project Settings 


For [win3zDebug 可 | General | Debug cictr | Unk | Resources | M 





CNot using precompiled headers 
6 Automatic use of precompiled headers 


Through header ”ET 二 


C Create precompiled header file Lpchj 


Jhrougp jer ET 


F Use precompiled headerfile Lpchj 
Thfough header ER 


Project Options: 





'_DEBUG";1D ”WINDOWS'"/D "AFXDLL"1D ”MBCS" 
p"Debugjimyrandplotestvc.pch' 7YX'stdafxh 





相 MDdAW3 iGm jGX 站 ji0diD "WIN32 1D 








图 6-12 工程 C/C 十 十 选项 卡 设置 
两 个 按钮 ,并 通过 ClassWizard 添加 上 述 两 个 按钮 的 消息 响应 函数 。 
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完成 后 的 CMyrandplottestvcDlg 的 源 代 码 如 下 所 示 。 


1/* myrandplottestvcDIg.h 文件 内 容 * / 
井 六 1 defined(AFX_MYRANDPLOTTESTVCDLG_HL__0E83166F_F438_4FA3_8FAF_8C7E9F6AC60E_INQLUDED_ ) 
## define AFX_MYRANDPLOTTESTVCDLC_H_05683166F_F438_4FA3_8FAF_8C7E9F6AC60E_INCLUDED_ 


井 放 _MSC_VER > 1000 
井 pragma once 
#endif // -MSC_VER 二 1000 


000A0000000A00000000000000000000I000A00A000000000000000000L0L00L00L000L 
// CMyrandplottestvcDIg dialog 


#include "mwcomutil.h” 
间 import "DiNMatlab6p5p1Nbin\win32\mwcomutil. dl”raw_interfaces_only 
#include "myrandplottest_1.0.h” 


class CMyrandplottestvcDlg : public CDialog 
{ 
// Construction 
public， 
CMyrandplottestvcDIg(CWnd * pParent= NULL); /V standard constructor 


/Dialog Data 
/ALAFX_DATA(CCMyrandplottestvcDIB) 
enum { IDD = IDD_MYRANDPLOTTESTVC_DIALOG 
1/ NOTE: the ClassWizard will add data members here 
VAN)AFX_LDATA 


/V ClassWizard generated virtual function overrides 
VA{{AFX_VIRTUALCCMyrandplottestvcDIB) 

protected: 

virtual void DoDataExcdhange(CDataExchange * PDX); W DDX/DDYV support 
/1/))AFX_VIRTUAL 


// implementation 

protected， 
HICON muhicon; 
Imyrandplottestclass * m_pTest; 


1/ Generated message map functions 
//{{AFX_MSC(CMyrandplottestvcDIg)》 
virtual BOOL OnlnitDialog(); 
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afx_msg void OnSysCommand(UINT nID,LPARAM IParam); 
atx_msg void OnPaint()， 
afx_msg HCURSOR OnQuenDraglcon(); 
afx_msg void OnTest() ; 
afx_msg void OnQuit() ; 
1/ 月 AFX_MSG 
DECLARE_MESSAGE_MAPO) 
和 


1/{(AFX_INSERT_LOCATIONi } 
1/ Microsoft VC++ will insert additional declarations immediately before the previous line- 


#endif // ! defined(AFX_MYRANDPLOTTESTVCDLCG_H_0E83166F_F438_4FA3_8FAF_8C7E9F6AC60E 


INCLUDED_) 


71/ myrandplottestvcDlg.qpp ;implementation file 
// 


井 include "stdafx.h” 
井 include "myrandplottestvc.h” 
#include "myrandplottestvcDIg.h 


##ifdef -PEBUC 

#define new DEBUC_NEW 
#undef THIS_FILE 

static char THIS_FILE[] = 一 FILE__; 
间 endif 


IIII0000000III0AIIL0IA0AIL00AL0LL0LALA0LLL00A0LLLLLLLLLLLLLLNLLLLLLLLLLLN 
// CAboutDig dialog used for App About 


class CAboutDIB ，public CDialog 
{ 
public; 

CAboutDIg() 4 


/Dialog Data 
/ALAFX_DATACCAboutDIgB) 
enum { IDD= IDD_ABOUTBOX } 
/1/)AFX_DATA 


71/ ClassWizard generated virtual function overrides 
/AUAEX_VIRTUALCCAboutDIg) 


第 6 章 。”Matlab Dotnet Builder 与 Visual C 十 十 213 








protected: 


virtual void DoDataExchange(CDataExchange * pPDX); 。 // DDX/DDYV support 
/是 AFX_VIRTUAL 


// Implementation 

protected: 
/LAFX_MSCGCCAboutDIB) 
/1/))AFX_MSC 
DECLARE_MESSACE_MAP() 

有 


CAboutDIg: :CAboutDIg() : CDialog(CAboutDlg: :IDD) 
{ 
AAAFX_DATA_LINITC(CAboutDIB) 
/AIAFX_DATALINIT 


void CAboutDIg: :DoDataExchange(CDataExchange * PDX) 
{ 
CDialog, :DoDataExchange(pDX)， 
/UL{AFX_DATA_MAP(CAboutDIB) 
1/))AFX_DATA_MAP 


BECIN_MESSACE_MAP(CAboutDIg,CDialog) 
/LAFX_MSC_MAP(CAboutDIB) 
// No message handlers 
V/AFX_MSC_MAP 
END_MESSAGE_MAPC) 


000000000A0000000000000000000000000000000000000000000000000000000L000LL 
7/ CMyrandplottestvcDlg dialog 


CMyrandplottestvcDlg::CMyrandplottestvcDIBCCWnd * ppParent /* = NUL* /) 
+ CDialog(CMyrandplottestvycDlg: :IDD,pParent) 


/VIAFX_DATA_INIT(CMyrandplottestvaDIg) 

// NOTE: the ClassWizard will add member initialization here 
/LAFX_PATA_LINIT 
7 Note that Loadlcon does not require a subsequent Destroylcon Win32 
m_hlcon = AfxGetApp() - >LoadiconKIDR_MAINFRAME): 
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void CMyrandplottestvcDlg: :DoDataExchange(CDataExchange * PDX) 
{ 
CDialog: :DoDataExchange(PDX); 
AU{{AFX_DATA_MAP(CMyrandplottestvcDIB) 
/NOTE: the ClassWizard will add DDX and DDYV calks here 
VANAFX_DATA_MAP 


BECINUMESSACE_MAP(CMyrandplottestvcDlg,CDialog) 

V/{{AFX_MSC_MAP(CMyrandplottestvcDlg)》 
ONLWMLSYSCOMMAND() 
ONLWMLPAINTO 
ONLWMLQUERYDRACGICONC) 
ONLBN_CLICKED(IDTEST,OnTest) 
ONLBNLCLICKED(IDQUIT,OnQuip 
LAAFX_MSCG_MAP 

END_MESSACE_MAP() 


AAAII000000A00AAAL00AL0AA00ALAL0LLL00L0L0LLLL0LLLLLLLLLLLLLLLLL0LLALLLLLA 
// CMyrandplottestvcDIg message handlers 


BOOL CMyrandplottestvcDIg: :OninitDialog() 
{ 
CDialog: :OnlnitDialog()， 





11 Add "About. .menu item to system menu. 


/1/ IDMLABOUTBOX must be in the system command range. 
ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDMLABOUTBOX) 
ASSERT(IDM_ABOUTBOX 一 0xF000); 


CMenu wpSysMenu = GetSystemMenu(FALSE); 

if (pSysMenu ! = NUUD) 

{ 
CString strAboutMenus 
strAboutMenu.LoadString(IDS_ABOUTBOX); 
if (1 strAboutMenu. lsEmpty()) 


pSysMenu 一 AppendMenu(MF_SEPARATOR); 
pSysMenu- >AppendMenu(MF_STRING,IDML_ABOUTBOX,strAboutMenu): 


// Set the icon for this dialog. The framework does this automatically 
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/1 when the application's main window is not a dialog 
Setlcon(m_hlcon,TRUE) 1/ Set big icon 
Seticon(m_hlcon,FALSE)， 1/ Set small icon 





// TODO: Add extra initialization here 
m_pTest= NULL 

放 (FAILED(Co 
{ 





ze(NULL) ) ) ) 


AfxMessageBox( "初始 化 出 错 !",MB_OK,NULL) ; 
)》 
return TRUE // returmn TRUE “unless you set the focus to a control 


void CMyrandplottestvcDIg: ;OnSysCommand(UINT nID,LPARAM IParam) 
{ 
放 ((nID & OxFFFO) == IDM_ABOUTBOX) 
{ 
CAboutDIg dlgAbouti 
dlgAbout.DoModal()， 


CDialog: :OnSysCommand(nID ,IParam); 


/If you add a minimize button to your dialog ,you will need the code below 
/1/ to draw the icon。 For MFC applications using the document/view model， 
V/ this is automatically done for you by the framework. 


void CMyrandplottestvcDlg: :OnPaint() 
{ 
if (lsiconic()) 
{ 
CPpaintDC dc(this) ;1/ device context for painting 


SendMessage(WML_ICONERASEBKGND,(WPARAM) dc. CetSafeHdc(),0); 


// Center icon in client rectangle 

int cxlcon = CetsystemMetrics(SM_CXICON) ; 
int cylcon = CetsystemMetrics(SM_CYICON); 
CRect rect; 

GetClientRectC&recb ; 
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int x= (rect. Width() -cxlcon + 1D) /25 
int y= (rect. Height() - cyicon + 1) /23 


// Draw the icon 
dc.Drawlcon(xyy,m_hlcon); 


else 


CDialog: :OnPaint(); 


VV The system calls this to obtain the cursor to display while the user drags 
/11 the minimized window . 
HCURSOR CMyrandplottestvcDIg: :OnQueryDraglcon() 
{ 
return (HCURSOR) mu_hlcon 


void CMyrandplottestvcdDlg: :OnTest() 
{ 
1/ TODO: Add your control notification handler code here 
/UL Initialize COM 
HRESULT hr; 
Imyrandplottestclass * PTest= NULL; 
hr = CoCreatelnstance( CLSID_myrandplottestclass,NULL， 


CLSCTX_ALL,NID_Imyrandplottestclass, (void ** )&pTest); 
话 (FAILED(hr) ) 
{ 
AfxMessageBox( "创建 Imyrandplottestclass 出 错 ") ; 
returni 


COlevariant in= 100.0; 

SAFEARRAY * pai 

double * pColor= NULL; 

pa= SafeArrayCreateVector(VT_R8,0,3); 

hr = SafeArrayAccessData(pa, (void ** )&pColorj; 
if(FAILED(hr) ) 

{ 


return; 
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V* color 
pColor[o]=0; 
pColorL1=1.0; 
pColor[2]=1.0 
SafeArrayUnaccessData(pa) ; 
VARIANT color; 

color.vt= VT_RBIVT_ARRAY; 





01 人 ;setrandplotcolor(color);* / 








color.parray= pai 

pTest- 二 setplotcolor(color) ; 

pTest- 二 myrandplot(0,NULL,(VARIANT)in) ; 
m_pTest = PTesti 


void CMyrandplottestvcDlg: :OnQuit() 

{ 
/1/ TODO: Add your control notification handler code here 
if(m_pTest! = NULL) 


{ 

m_pTest 一 二 Release(); 
m_pTest= NULL; 
】} 


OnCancel(); 
CoUninitialize() ; 
上 





myrandplottestvec 工程 运行 的 结果 如 图 6- 13 所 示 。 


) Figure 机 o- 





图 6-13 myrandplottestvc 工程 的 运行 结果 
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6.4 ”Matlab Dotnet Builder 与 Visual C 十 十 之 间 的 
数据 转换 


若 要 在 VC 十 十 中 调用 Matlab Dotnet Builder 生成 的 COM 组 件 ,那么 客户 和 组 件 之 间 的 
数据 交换 是 一 个 必须 要 解决 的 问题 。 采 用 Matlab Dotnet Builder 生成 的 控件 ,COM 组 件 和 
客户 之 间 的 通过 VARIANT 数据 类 型 交换 数据 。 


6.4.1 VARIANT 数据 类 型 


VARIANT 是 COM 组 件 与 客户 进行 数据 交互 常用 的 数据 类 型 ,可 以 将 其 看 做 一 种 通用 
的 数据 类 型 。 其 实 , 在 C/C 十 十 语言 中 VARIANT 是 一 个 结构 体 。 通 过 VARIANT 数据 类 
型 ,为 COM 组 件 与 客户 提供 了 一 种 非常 有 效 的 数据 交互 机 制 。 因 为 它 本 身 既 包 含 了 数据 本 
身 , 也 包含 了 数据 的 类 型 , 当 COM 组 件 的 开发 语言 与 其 客户 的 开发 语言 遇 到 类 型 转换 问题 的 
时 候 ,可 以 利用 VARIANT 类 型 的 这 种 特性 实现 不 同 语言 之 间 的 数据 交互 。 下 面 即 为 VARI 
ANT 数据 类 型 的 定义 。 
typedef struct tagVARIANT 
{ 
VARTYPE vt; 
unsigned short wReserved1; 
unsigned short wReserved2; 
unsigned short wReserved3; 


union 

{ 
unsigned char ”byval; // VT_UIN 类 型 
short iVal; // VT_I2 类 型 
long Ival; // VT_H 类 型 
float 全 val; // VT_R4 类 型 
double dblval; // VT_R8 类 型 
ANT_BOOL boolval; // VT_BOOL 类 型 
SCODE Scode: // VT_ERROR 类 型 
CY cyYVal; // VT_CY 类 型 
DATE datei // VT_LDATE 类 型 
BSTR bstrVal; // VIL_BSTR 类 型 
IUnknown FAR * punkval; 1/ VT_UNKNOWN 类 型 
IDispatch FAR * pdispVal; // VT_PISPATCH 类 型 
SAFEARRAY FAR * parray; 。// VT_ARRAY|* 类 型 
unsigned char FAR * pbVal; 1/ VT_BYREFIVT_UII 类 型 
short FAR * piVal; // VT_BYREFIVT-i2 类 型 
long FAR * plVal; // VTLBYREFIVT_HM 类 型 
float FAR * pfttval; 。 // VIL_BYREFIVT_R4 类 型 


double FAR * pdbival; // VT_BYREFIVT_R8 类 型 
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VARIANT_BOOL ”FAR * pbooival; // VT_BYREFIVT_BOOL 类 型 
SCODE FAR * pscodes // VT_BYREFIVT_ERROR 类 型 
CY FAR * pcyval; // VT_BYREFIVT_CY 类 型 

DATE FAR * pdate; // VT_BYREFIVT_DATE 类 型 
BSTR FAR * pbstrval // VT_BYREFIVT_BSTR 类 型 
IUnknown FAR * FAR * ppunkval; /1/ VT_BYREFIVT_UNKNOWN 类 型 
IDispatch FAR * FAR * ppdispVal; /W/ VT_BYREFIVT_DISPATCH 类 型 
SAFEARRAY FAR * 。 FAR * pparrayi // VT_ARRAY| * 类 型 

VARIANT FAR * pvarval; // VT_BYREFIVT_VARIANT 类 型 
void FAR * byref /1 Generic ByRef 类 型 


) 
拓 


可 以 看 出 ,VARIANT 类 型 除了 保留 字 节 以 外 ,还 包含 了 一 个 类 型 成 员 vt 以 及 一 个 大 的 
union 类 型 。 为 了 实现 跨 语言 的 特性 ,COM 接口 在 传递 参数 的 时 候 采用 这 种 VARIANT 类 型 
的 参数 ,这 样 可 以 将 函数 参数 的 类 型 检查 推迟 到 运行 时 刻 来 完成 。 


IMyinterface * plnterfaces 


VARIANT parai 
Variantinit(&para) 
para.vt= VT_I2; 
para.ival= 10} 

plnterface- >MyFun(para)， 


例如 ,在 上 述 例子 中 ,COM 对 象 在 调用 方法 MyFun 的 时 候 并 不 知道 para 参数 的 类 型 ,只 
是 在 函数 真正 要 运行 的 时 刻 才能 通过 检查 VARIANT 变量 的 vt 项 来 判断 接收 到 的 参数 是 
VT_I2 型 ( 即 16 位 整 型 ) ,然后 再 根据 参数 的 类 型 取 相 应 的 值 (iVal) 。 为 了 方便 处 理 VARL 
ANT 类 型 的 变量 , Windows 提供 了 这 样 一 些 非常 有 用 的 函数 : 

@ VariantInit 初始 化 VARIANT 变量 ,将 vt 设置 为 v_EMPTY。 

@ VariantClear 清除 现 有 的 VARIANT 变量 ,并 将 其 初始 化 。 

@ VariantChangeType 改变 VARIANT 变量 的 类 型 。 

@ VariantCopy 复制 VARIANT 变量 。 

使 用 VARIANT 变量 时 需要 注意 两 点 : 

Q@ VARIANT 变量 使 用 前 一 定 要 调用 VariantInit 进行 初始 化 。 

@ 有 时 候 函 数 的 有 些 参数 是 可 选 的 ,如果 不 想 给 可 选 的 参数 提供 一 个 值 ,可 以 传递 VT- 
ERROR 给 vt 域 , 则 与 vt 域 对 应 的 scode 域 则 被 设置 为 DISP_E_PARAMNOTFOUND, 相 应 
的 COM 方法 也 应 该 提供 他 自己 的 默认 值 。 

VARIANT 类 型 使 用 起 来 比较 麻烦 ,使 用 VC 进行 程序 设计 的 时 候 , 还 有 另外 两 个 封装 好 
的 VARIANT 类 可 以 使 用 , 即 ColeVariant 和 -_variant_t。 

ColeVariant 类 的 构造 函数 将 VARIANT 类 型 的 初始 化 和 类 型 转换 隐藏 起 来 ,在 对 象 构 
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造 的 时 候 , 构 造 函 数 首先 调用 VariantInit 进行 初始 化 ,然后 根据 参数 中 的 标准 类 型 调用 相应 
的 构造 函数 ,并 使 用 VariantCopy 进行 转换 赋值 操作 , 当 VARIANT 对 象 不 在 有 效 范围 时 ， 
ColeVariant 对 象 就 会 自动 析 构 ,并 由 析 构 函数 调用 VariantClear, 因 此 不 必 考虑 VARIANT 
类 型 内 存 的 清除 问题 。ColeVariant 的 赋值 操作 符 在 与 VARIANT 类 型 转换 中 也 会 为 用 户 提 
供 极 大 的 方便 。 

例如 ,下 面 的 代码 : 


//VT_HM,1234,32 位 整 型 , 值 为 1234 

Colevariant varl4 = (long)1234; 

V/VT_R8 ,1234.0,double 型 , 值 为 1234.0 

Colevariant varR8 = (double)1234.0; 

UVVT_BSTR，Hello World" ,字符 事 型 , 值 为 "Hello World” 
Colevariant varBSTR = "Hello World'"， 


ColeVariant 主要 用 于 自动 化 (Automation) ,而 _variant_t 是 一 个 用 于 COM 开发 的 VA- 
RIANT 类 , 它 的 功能 与 ColeVariant 相似 。 
采用 ColeVariant 时 需要 头 文件 Afxdisp. h, 采 用 _variant_t 时 需要 头 文件 COMDEF. H。 


6.4.2 SAFEARRAY 数据 类 型 


通过 SafeArray, 可 以 在 VC 十 十 和 Matlab Dotnet Builder 之 间 传递 数组 参数 。 为 了 保证 
程序 和 SafeArray 结构 无 关 ,COM 库 提 供 了 一 套 API 函数 用 于 处 理 SafeArray, 程 序 中 建立 、 
读 取 、 更 改 和 释放 SafeArray 都 应 该 通过 这 些 API 进行 ,而 不 应 该 直接 读 写 SafeArray 结构 。 
下 面 就 来 分 析 一 下 结构 体 SafeArray 的 定义 ,在 32 位 Windows 操作 系统 和 16 位 Windows 操 
作 系 统 上 ,SafeArray 的 定义 稍 有 不 同 。 


typedef struct FARSTRUCT tagSAFEARRAY 
{ 
unsigned short cDims;// 数组 维 的 数目 
unsigned short 作 eatures; // 数组 释放 方式 标志 
井 放 defined(WIN32) 
unsigned long cbElements;// // 数组 元 素 个 数 
unsigned long cLocksy 
并 else 
unsigned short cbElements; 
unsigned short cLocks; 
unsigned long handley 
划 endif 
void HUGEP * pvDatas // 指 向 数组 数据 的 指针 
SAFEARRAYBOUND rgsabound[L1]; // 数 组 各 维 边 界 
JSAFEARRAY: 


SAFEARRAYBOUND 结构 体 用 来 描述 数组 的 维 数 和 数组 各 维 索引 的 上 下 界 ,其 定义 如 
下 所 示 。 


第 6 章 Matlab Dotnet Builder 与 Visual C 十 十 221 








typedef struct tagSAFEARRAYBOUND 
unsigned long cElements; 
long tbound; 
}SAFEARRAYBOUNDY 


其 中 域 cElements 代表 数组 某 一 维 元 素 的 个 数 ,1Lbound 代表 数组 某 一 维 元 素 索 引 的 
下 界 。 

如 果 要 创建 一 个 3X2 的 数组 ,每 一 维 的 下 界 都 是 0, 那 么 需要 创建 下 面 的 SAFEAR- 
RAYBOUND 数组 : 


SAFEARRAYBOUND bound[2];// 数 组 一 共 两 维 ,第 一 维 用 bound[0] 来 描述 ， 
// 第 二 维 用 bound[L1] 来 描述 。 
// 要 创建 3X 2 的 数组 ,初始 化 boundL[O] 和 bound[1] 
bound[0] ,Itbound=0; 
bound[1].ILbound= 0 
bound[o] .cElements= 3 
bound[1].cElements= 2; 


6.4.3 SAFEARRAY 的 创建 函数 


1. SAFEARRAY * SafeArrayCreate( 
VARTYPE vt， 
unsigned int cDims, 
SAFEARRRAYBOUND FAR * rgsabound 
); 
创建 一 个 SAFEARRAY 数组 ,其 中 vt 为 数组 的 类 型 ,不 能 为 VT_ARRAY 和 VT_BY- 
REF ,而 且 VT_EMPTY and VT_NULL 作为 参数 也 是 无 效 的 ;icDims 为 数组 的 维 数 ;rgsab- 
ound 为 数组 每 一 维 索引 的 最 小 值 和 元 素数 目的 描述 。 下 面 有 两 个 例子 ,第 一 个 用 以 说 明 如 何 
创建 一 个 1 * L 的 数组 。 第 二 个 用 以 说 明 如 何 创 建 一 个 m* n 的 二 维 数组 ,多 维 数组 的 创建 方 
法 与 此 类 似 。 
(1) 如 何 创 建 1*L 的 数组 
// 创 建 一 个 一 维 整 型 数组 ,长 度 为 上 
SAFEARRAY FAR * psat 
SAFEARRAYBOUND rgsabound[1]; 
rgsabound[0] .bound= 0; 
rgsabound[0].cElements= tt; 
psa = SafeArrayCreate(VT_IM4 ,1,rBsabound)， 
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(2) 如 何 创 建 m*m 的 二 准 数组 
// 创 建 一 个 二 维 double 型 数组 ,数组 的 维 数 为 :mn 


SAFEARRAY FAR * psai 

SAFEARRAYBOUND rgsabound[2]; 
rgsabound[0] .Ilbound= 0; 

rgsabound[1] .Itbound= 0; 
rgsabound[0].cElements= mi 
rgsabound[1].cElements= mi 

psa = SafeArrayCreate(VT_R8,2,rgsabound); 


2. SAFEARRAY * SafeArrayCreateVector( 
VARTYPE vt， 
long ILbound , 
unsigned int cElements 
); 
利用 SafeArrayCreateVector 可 以 方便 地 创建 一 个 一 维 数组 ,例如 上 面 第 一 个 创建 1X 工 
数组 的 例子 可 以 用 SafeArrayCreateVector 实现 。 


// 采 用 SafeArratCreateVector 创建 一 个 一 维 数组 
SAFEARRAY FAR * psai 
psa = SafeArrayCreateVector(VT_HM4,0,L); 


6.4.4 Matlab Dotnet Builder 与 Visual C 十 十 数据 转换 


当 VC 十 十 调用 由 Matlab Dotnet Builder 生成 的 COM 组 件 时 ,一 方面 ,在 VC 十 十 客户 程 
序 中 需要 用 VARIANT 类 型 来 构造 Matlab Dotnet Builder COM 组 件 接口 函数 所 需要 的 输入 
参数 , 另 一 方面 ,VC 十 十 客户 程序 中 需要 用 VARIANT 类 型 的 变量 来 接收 Matlab Dotnet 
Builder COM 组 件 接口 函数 的 输出 结果 。 

1，Matlab 数据 类 型 的 VARIANT 类 型 表示 

(1) 数值 阵列 

Matlab 数值 阵列 根据 所 表示 数据 类 型 和 精度 的 不 同 ,可 以 分 为 8 位 16 位 ,32 位 有 符号 
整 型 和 无 符号 整 型 . 单 精 度 和 双 精 度 浮 点 类 型 等 。 所 有 这 些 数值 阵列 都 可 以 通过 SAFEAR- 
RAY 及 相应 的 “一 任意 VARIANT 类 型 1VT_ARRAY 类 型 "的 VARIANT 变量 来 表示 。 
对 于 图 1X1 的 数值 阵列 ,可 以 按照 上 述 方法 表示 。 另 外 ,也 可 以 直接 用 非 VT_ARRAY 类 型 
的 VARIANT 变量 来 表示 。 如 对 于 如 下 的 Matlab 变量 as=5.0, 可 以 采用 下 面 的 VARIANT 
变量 形式 来 表示 。 
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VARIANT vas 
va-vt=VT_R8 
va.dblval=5.0; 
(2) 字符 阵列 
Matlab 一 维 字符 阵列 可 以 采用 VT_BSTR 类 型 的 VARIANT 变量 来 实现 。 对 于 多 维 字 
符 阵列 ,可 以 采用 VT_BSTRIVT_ARRAY 类 型 的 VARIANT 变量 来 实现 。 在 VC 十 十 中 当 
客户 调用 Matlab Dotnet Builder COM 组 件 时 ,如 果 用 VARIANT 变量 表示 的 多 维 字符 阵列 
作为 输入 参数 , 则 需要 注意 多 个 字符 串 的 长 度 必 须 一致 。 在 这 种 情况 下 ,最 好 采用 元 组 的 
VARIANT 形式 传送 字符 串 。 
(3) 元 组 阵列 
对 于 元 组 阵列 ,可 以 采用 VT_VARIANTIVT_ARRAY 类 型 的 VARIANT 变量 来 表示 。 
VARIANT 变量 实际 上 是 一 个 VARIANT 类 型 的 数组 ,数组 的 任何 一 个 元 素 是 一 个 VARL 
ANT 变量 ,这 个 VARIANT 变量 可 以 表示 Matlab 的 任 一 阵列 类 型 ,从 而 达到 用 VARIANT 
类 型 变量 来 表示 元 组 阵列 的 目的 。 
2. VARIANT 变量 和 Matlab 阵列 的 转换 规则 
(1) Matlab 阵列 类 型 到 COM VARIANT 类 型 变量 转换 规则 
Matlab 各 种 类 型 的 阵列 与 VARIANT 变量 的 转换 规则 如 表 6 - 1 所 列 。 
(2)COM VARIANT 类 型 变量 与 Matlab 阵列 类 型 的 转换 规则 
VARIANT 变量 与 Matlab 各 种 阵列 类 型 的 转换 规则 如 表 6 - 2 所 列 。 
表 6-1 Matlab Dotnet Builder 与 VARIANT 类 型 数据 之 间 的 转换 类 型 对 照 表 
标量 数据 对 应 的 VARIANT 类 型 








Matlab 数据 类 型 阵列 数据 对 应 的 VARIANT 类 型 





对 于 1X 1 的 Matlab 元 组 ,其 对 应 的 VARL 


cell 


ANT 类 型 与 元 组 的 内 容 有 关 , 即 其 对 应 的 VA- 
RIANT 类 型 为 元 组 内 容 对 应 的 阵列 类 型 按照 
转换 规则 转换 后 的 VARIANT 类 型 


对 于 Matlab 元 组 阵列 ,其 VARIANT 类 型 为 VT- 
VARIANTIVT_ARRAY, 即 其 对 应 的 是 一 个 VA- 
RIANT 类 型 变量 数组 





struct 


结构 体 对 应 VT_DISPATCH 类 型 的 VARI- 
ANT 变量 , Matlab 结构 体 被 转换 为 MWStruct 
对 象 ,这 个 对 象 通过 VT_DISPATCH 类 型 的 
VARIANT 变量 传递 


与 标量 数据 相同 





ehar 


对 于 1X1 的 字符 类 型 阵列 ,其 对 应 的 VARL 
ANT 类 型 为 VT_BSTR, 只 是 其 字符 串 长 度 为 
1 


对 于 1XL 的 Matlab 字符 类 型 阵列 ,其 对 应 的 VARIT 
ANT 类 型 为 VT_BSTR, 且 其 字符 串 长 度 为 上 
对 于 MXL,M>1 甚至 更 高 维 的 Marlab 字符 阵列 ， 
其 对 应 的 VARIANT 类 型 为 VT_BSTRI1VT_AR- 
RAY, 并 且 VARIANT 字符 让 数组 的 每 个 元 素 的 长 
度 均 为 1, 与 Matlab 字符 阵列 的 元 素 一 一 对 应 





sparse 





Marlab 稀 朴 矩阵 阵列 对 应 VT_DISPAATCH 
类 型 的 VARIANT 变量 , Matlab 结构 体 被 转换 
为 MWSparse 对 象 ,这 个 对 象 通过 VARIANT 
变量 传递 





与 标量 数据 相同 
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续 表 6-1 
Matlab 数据 类 型 标量 数据 对 应 的 VARIANT 类 型 阵列 数据 对 应 的 VARIANT 类 型 
对 于 大 于 1X1 的 实数 双 精 度 浮 点 Matlab 数值 阵 
时 于 1X1 4 
到 的 乾 开 铺 诺 泽 避 要 全 到 度 列 ,其 对 应 的 VARIANT 类 型 为 VT_R81VT_AR- 
的 了 全 半 玫 半生 下 和 RAY-。 对 于 大 于 1X1 的 复数 双 精 度 浮 点 Matlab 数 
double 数 双 精 度 评点 数值 阵列 ,其 对 应 的 VARIANT 
1 值 阵列 , 其 对 应 的 VARIANT 类 型 为 VT_DIS- 
类 型 为 VT_DISPATCH,Marlab 复数 双 精 度 浮 PATCH,Matlab 复数 双 精 度 浮 点 数值 阵列 被 转换 
Matlal 
MWCompl 
点 数值 阵列 被 转换 为 MWComplex 对 象 为 MWComplex 对 象 
机 对 于 大 于 1X1 的 实数 单 精度 浮 点 Matlab 数值 阵 
对 本 1X1 的 实数 单 精度 评 训 数值 许 列 ,其 对 应 | 列 ,其 对 应 的 VARIANT 类 理 为 VT_R41VT_AR- 
的 VARIANT 类 型 为 VT_R4。 对 于 1X1 的 复 
RAY。 对 于 大 于 1X1 的 复数 单 精度 浮 点 Matlab 数 
single 数 单 精度 浮 点 数值 阵列 ,其 对 应 的 VARIANT 汪 
值 阵 列 ,其 对 应 的 VARIANT 类 型 为 VT_DIS- 
类 型 为 VT_DISPATCH,Martlab 复数 单 精度 浮 PATCH,Marlab 复数 单 精度 浮 点 数值 阵列 被 转换 
Matla 
| MWC 
点 数值 阵列 被 转换 为 MWComplex 对 象 为 MWComplex 对 象 
int8 对 于 1X1 的 实数 (U)X 位 整 型 数值 阵列 ,其 对 | 对 于 大 于 1X1 的 实数 (U)X 位 整 型 Marlab 数值 阵 
uint8 应 的 VARIANT 类 型 为 VT_(U)IX。 对 于 1X | 列 ,其 对 应 的 VARIANT 类 型 为 VT_(UJIX1VT_ 
intl6 1 的 复数 (CU)X 位 整 型 数值 阵列 ,其 对 应 的 | ARRAY。 对 于 大 于 1X1 的 复数 (U)X 位 整 型 Mat 
uintl6 VARIANT 类 型 为 VT_DISPATCH,Matlab 复 | lab 数值 阵列 ,其 对 应 的 VARIANT 类 型 为 VT- 
int32 数 (U)X 位 整 型 数值 阵列 被 转换 为 MWCom- | DISPATCH,Matlab 复数 (U)X 位 整 型 数值 阵列 被 
uint32 plex 对 象 转换 为 MWComplex 对 象 
人 对 于 1X1 的 辑 型 Matlab 阵列 ,其 对 应 的 | 对 于 大 于 1X1 的 逻辑 型 Matalb 阵列 ,其 对 应 的 
下 VARIANT 类 型 为 VT_BOOL VARIANT 类 型 为 VT_BOOLIVT_ARRAY 
表 6-2 VARIANT 类 型 数据 与 Matlab Dotnet Builder 之 间 的 数据 转换 类 型 对 照 表 
VARIANT type | Marlab 数据 类型 | 说 明 
VT_EMPTY NA 空 阵列 (empty) 
VT_H ine8 
VT_UD uint8 
int16 
的 8、16、32 位 有 符号 整 型 标量 和 无 符号 整 型 标量 
im 
int32 
uint32 
人 单 精度 和 双 精 度 评 点 型 变量 
double 
double 货币 类 型 (curreney) ] 
1xL 的 VT_BSTR 类 型 的 VARIANT 变量 转换 为 Matlab 字符 数组 . 将 VT_ 
VT_BSTR char BSTRIVT_ARRAY 类 型 的 VARIANT 变量 转换 为 Matlab 元 组 (cell), 其 元 素 
为 1XL 的 字符 数组 
VT_ERROR int32 HRESULT 类 型 的 变量 ,表示 COM 组 件 的 错误 状态 
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续 表 6 -2 
『 VARIANT type | Marlab 数据 类 型 说 明 
同样 是 double 型 数据 ,在 Marlab 和 VARIANT 中 ,日 期 类 型 的 数据 起 点 不 同 ， 
交 让 在 VARIANT 类 型 中 ,日 期 的 起 点 是 1899 年 11 月 31 日 ;在 Matlab 中 ,日 期 的 
和 起 点 是 0/0100 00:00:00, 所 以 当 把 VARIANT 的 日 期 类 型 映射 到 Matlab 中 
时 ,需要 加 上 693960. 0,VARIANT 的 日 期 类 型 可 以 转换 为 字符 让 
VT_INT inr 2 
VE 二 已 无 符号 整 型 和 有 符号 整 型 ,分 别 与 nt 和 unsigned int 类 型 对 应 
VT_DECIMAL | Double 
| vaoor logical TDispatch ”指针 现在 支持 Excel Range 
用 以 处 理 Matiab 结构 阵列 、 复 数 阵列 、 稀 朴 矩 阵 阵列 等 比较 复杂 类 型 的 阵列 ,请 
VT_DISPATCH | 可 变 类 型 读者 参考 Matiab Dornet Builder 关于 使 用 工具 库 中 MWStruct, MWComplex， 
MWSparse 和 MWArg 等 类 使 用 方法 的 介绍 
<<anyrhing>| 。 | 可 变 类 型 引用 类 型 ,任何 基本 类 型 都 可 引用 ,转换 后 的 Marlab 数组 包含 对 数据 的 深 复制 
VT_BYREF 《deep copy) 
| 多 维 VARIANT 数组 转换 为 多 维 Matlab 数组 ,数组 的 类 型 与 基本 数据 类 型 及 
ER 可 变 类 型 其 转换 规则 有 关 , 多 维 VT_VARIANT1VT_ARRAY 类 型 的 VARIANT 数组 
本 会 被 转换 为 多 维 元 组 (cell) ,每 个 元 组 的 转换 方式 与 转换 规则 有 关 





3. 数组 格式 标志 (array formatting flags) 

Matlab Dotnet Builder 组 件 通过 相应 的 标志 (flags) 控制 数组 数据 在 Matlab Dotnet 
Builder 和 调用 COM 组 建 的 客户 之 间 的 数据 交互 方式 。 通 常 ,可 以 在 使 用 COM 组 件 的 客户 
中 ,通过 设置 相应 的 数组 格式 标志 ,以 满足 COM 组 件 接口 函数 的 需要 。Matlab Dotnet Build- 
er 组 件 的 数组 格式 标志 的 类 型 为 MWArrayFormatFlag。 表 6 - 3 给 出 了 Matlab 数组 格式 标 


志 及 其 作用 。 


表 6-3 Matlab 数组 格式 标志 及 其 作用 








数组 格式 标志 


InputArrayFormat 


作 用 ES 
定义 输入 数组 需要 的 数组 格式 化 规则 ,输入 数 组 是 由 客户 端 创建 的 VARIANT 数组 ,作为 
COM 对 象 接口 的 某 个 输入 参数 ， 此 标志 的 有 效 值 为 mwArrayFormatAsls, mwArray- 
FormatMatrix,mwArrayFormatCell 

mwArrayFormatAsls 表示 输入 数组 不 变 

mwArrayFormatMatrix 表示 将 所 有 的 输入 数 组 当 作 和 矩阵。 当 输入 VARIANT 是 类 型 VT 
-ARRAY| 一 wype> 时 ,一 type> 是 任何 数值 类 型 ,此 标志 无 效 。 当 输入 VARIANT 是 
类 型 VT_VARIANTIVT_ARRAY 时 , 则 检查 其 中 的 VARIANT 变量 ,如 果 它 们 都 是 
单 值 而 且 是 同一 类 型 的 话 ,此 时 采用 相应 类 型 的 Matlab 矩阵 ,而 不 采用 元 组 

mwArrayFormatCell 表示 将 所 有 的 输入 数组 当 作 元 组 (cell) 





InputArrayIndFlag 


当 输入 Matlab 阵列 为 VT_VARIANT1VT_ARRAY 类 型 时 ,InputArraylndFlag 表示 Inpu- 
t+ArrayFormat 起 作用 的 层 数 。 默 认 情况 下 , InputArraylndFlag 为 0, 表 示 Input| ArrayInd- 
Flag 只 对 输入 参数 的 第 一 层 起 作用 





OutputArrayFormat 


输出 数组 的 转换 规则 ,有 效 值 为 mwArrayFormatAsls,mwArrayFormatMatrixymwArrayFormatCell 





OutputArrayIndFlag 


与 InputArrayIndFlag 类 似 ,OutputArraylndFlag 表示 OutputArrayFormat 起 作用 的 层 数 





AutoResizeOutput 


Excel ranges only 





TransposeOutput 








转 置 标志 
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4. 数据 转换 标志 (data conversion flags) 


Matlab Dotnet Builder 生成 的 COM 组 件 通过 数据 转换 标志 来 控制 VARIANT 类 型 与 
Matlab 阵列 类 型 转换 时 使 用 的 规则 。Matlab Dotnet Builder 生成 的 COM 组 件 的 数据 转换 标 
志 的 类 型 为 MWArrayFormatFlag。 数 据 转换 标志 共 包 含 CoerceNumericToType ,InputDate- 
Format OutputAsDate 和 DateBias 四 个 属性 。 

(HU)mwDataType CoerceNumericToType 一 一 Matlab 数值 阵列 强制 转换 标志 

CoerceNumericToType 标志 通过 Matlab Dotnet Builder 生成 的 COM 组 件 的 数据 转换 器 
《data converter) 将 所 有 的 VARIANT 数值 数据 转换 为 特定 的 Matlab 类 型 。 受 影响 的 数据 类 
型 包括 VT_IH1,VT_UIL,VT_I2,VT_UI2,VT_I4,VT_UI4,VT_R4,VT_R8,VT_CY,VT_ 
DECIAML,VT_INT,VT_UINT,VT_ERROR,VT_BOOL 和 VT_DATE。 

mwDataType 的 定义 在 mwcomtypes. h 中 可 以 找到 ,其 定义 如 下 。 


typedef enum mwDataType 
{《 

mwTypeDefault = 0,/ * CoerceNumericToType 的 默认 值 * / 
mwTypelogical = 3， 
mwTypeChar 
mwTypeDouble = 6， 
mwTypeSingle = 7， 
mwTypelntg ”= 8， 
mwTypeUintg = 9， 
mwTypeint16 = 10， 
mwTypeUint16 = 11， 
mwTypelnt32 = 12， 
mwTypeUint32 = 13 

}mwDataType' 











(2)mwDateFormat InputDateFormat 输入 日 期 类 型 
InputDateFormat 标志 通知 数据 转换 器 ,将 VARIANT 日 期 类 型 转换 为 Matlab 日 期 类 
型 。mwDateFormat 的 定义 也 可 以 在 mwcomtypes. h 中 找到 ,其 定义 如 下 。 


typedef enum mwDateFormat 
{ 
mwDateFormatNumeric = 0， 
mwDateFormatstring = 1 
}mwDateFormats 


其 中 ， 

mwDateFormatNumeric 作为 默认 值 ,表示 输入 的 VARIANT 日 期 类 型 按照 图 6 - 2 的 规 
则 转换 

mwDateFormatString 表示 输入 的 VARIANT 日 期 类 型 转换 为 字符 串 型 。 

(3) bool OutputAsDate 日 期 输出 标志 

如 果 OutputAsDate 为 TRUE , 则 Matlab Dotnet Builder COM 组 件数 据 转换 器 将 输出 
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作为 日 期 类 型 ;如 果 OutputAsDate 为 FALSE, 则 Matlab Dotnet Builder COM 组 件数 据 转换 
器 将 输出 作为 双 精 度 实 型 数据 。 

(4)DateBias As Long 一 一 VARIANT 与 Matlab 日 期 差 值 

设置 VARIANT 与 Matiab 的 日 期 转换 的 差 值 ,其 默认 值 为 693960, 可 以 更 改 为 任意 一 个 
long 型 整数 。 


6.5 ”Matlab COM 工具 库 





6.5.1 简 介 


Matlab Dotnet Builder 包含 一 组 非常 方便 的 数据 转换 工具 库 , 其 中 包括 用 于 处 理 Matlab 
特有 数据 结构 与 VC 十 十 客户 交互 的 工具 ,如 结构 阵列 (struct)、 元 组 阵列 (cell) 和 稀 朴 矩阵 
(sparse matrix) 等 。 这 个 工具 库 通过 COM 的 形式 提供 给 VC 十 十 用 户 ,主要 包含 在 mwco- 
mutil, dll 中 ,可 以 通过 DOS 下 面 的 命令 行 注 册 : 


mwregsvr mwcomutil. dl 


可 以 通过 下 面 的 方法 直接 使 用 (一 matlabroot 二 表示 Matlab 安装 的 根 目录 ): 


井 import "一 matlabroot> \bin\win32\mwcomutil. dl”raw_interfaces_only 


6.5.2 工具 库 的 类 (utility library classes) 


Matlab Dotnet Builder 工具 库 包含 下 面 7 个 主要 的 类 : 
MWUtil 类 ， 
MWFlags 类 } 
MWStruct 类 ; 
MWField 类 ; 
MWComplex 类 ; 
MWSparse 类; 
MWArg 类 。 
. MWUtil 类 

MWUtil 类 包含 一 组 在 数组 处 理 中 非常 有 用 的 函数 。 对 于 Dotnet Builder 客户 而 言 ， 
MWUtil 可 以 将 VARIANT 变量 组 成 VARIANT 数组 ,将 VARIANT 数组 拆 分 为 VARI- 
ANT 变量 以 及 Dotnet Builder 与 VARIANT 日 期 类 型 之 间 的 转换 等 功能 ,由 于 这 里 只 是 利用 
MWUtil 提供 的 功能 函数 ,所 以 在 客户 程序 中 最 好 存在 一 个 全 局 范围 内 的 MWUtil 对 象 实例 ， 
这 样 可 以 提高 客户 访问 MWUtil 对 象 实例 的 效率 。MW Util 与 Dotnet Builder 相关 的 主要 醒 
数 是 : 

Q@ MWPack 用 于 将 多 个 不 同 长 度 的 VARIANT 变量 打包 成 一 个 VARIANT 数组 ,典型 
的 用 途 是 将 多 个 分 散 的 输入 打包 成 一 个 varargin cell 的 输入 形式 ,最 多 将 32 个 输入 参数 
打包 。 
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@ MWUnpack 与 MWPack 相反 ,将 一 个 VARIANT 数组 拆 为 多 个 独立 的 VARIANT 
变量 ,其 典型 用 途 是 将 输出 的 varargout 数组 打开 成 独立 的 变量 。 

@@ MWDate2VariantDate(pVar) 提 供 Dotnet Builder 与 VARIANT 的 日 期 格式 转换 。 

2. MWFiags 类 

MWFlags 类 包含 一 组 数组 格式 化 和 数据 转换 标志 ,所 有 的 Matiab Dotnet Builder 组 件 都 
包含 一 个 MWFlags 实例 。 通 过 修改 MWFlags 可 以 方便 地 改变 对 象 修改 数据 转换 规则 。 这 
个 类 包含 下 面 的 属性 变量 和 函数 ; 

@ MWArrayFormatFlag ArrayFormatFlags 数组 格式 化 标志 

@ MWDataConversionFlags DataConversionFlags ”数据 转换 标志 ; 

@ HRESULT Clone(IMWFlags ** ppFlags); 复制 当前 MWFlags 实例 。 

(1JMWArrayFormatFlags ArrayFormatFlags 

ArrayFormatFlags 用 于 控制 Matlab Dotnet Builder 控件 输入 输出 数据 的 转换 规则 。 
MWArrayFormatFlags 类 是 不 可 以 创建 的 (noncreatable class), 只 能 通过 某 个 已 经 存在 的 
MWFlags 的 对 象 实例 来 获取 MWArrayFormatFlags 的 访问 权 。MWArrayFormatFlags 类 包 
含 下 面 六 个 属性 变量 ， 

@ mwArrayFormat InputArrayFormats 

@ long InputArrayIndFlag 

@@ mwArrayFormat OutputArrayFormat; 

@ long OutputArraylndFlag， 

@ VARIANT AutoResizeOutput; 

@ VARIANT TransposeOutput; 

1) mwArrayFormat InputArrayFomrat 

JnputArrayFomrat 用 来 控制 输入 数组 的 格式 ,其 默认 值 为 mwArrayFormatAsls。 可 根 
据 默 认 的 转换 规则 (如 表 6 - 1 所 列 ) 进 行 转换 。 

2) long InputArrayIndFlag 

对 于 嵌 套 数组 (例如 ,传递 的 VARIANT 数组 ,其 数组 中 每 一 个 VARIANT 元 素 是 数组 
本 身 ) ,InputArrayIndFlag 表示 InputArrayFormat 适用 的 VARIANT 数组 层 数 , 默 认 值 为 0。 

对 于 Varargin 参数 ,不 要 更 改 InputArrayIndFlag 的 值 ,因为 数据 转换 模块 在 遇 到 Varar- 
gin 元 组 时 会 自动 将 InputArrayIndFlag 加 1。 

3) mwArrayFormat OutputArrayFormat 

OutputArrayFormat 用 来 控制 输出 数组 格式 ,其 默认 值 为 mwArrayFormatAsIs 。 此 时 
可 以 根据 默认 的 转换 规则 (如 表 6 - 1 所 列 ) 进 行 转换 。 

4) long OutputArrayIndFlag 

OutputArrayIndFlag 表示 OutputArrayIndFlag 适用 的 VARIANT 数组 层 数 ,与 Inpu- 
tArrayIndFlag 类 似 , 其 默认 值 为 0。 碰 到 Varargout 参数 时 自动 加 1。 

5) VARIANT AutoResizeOutput 

AutoResizeOutput 是 VT_BOOL 类 型 的 VARIANT 变量 ,这 个 属性 只 在 与 Excel Build- 
er 相关 的 应 用 中 起 作用 。 

6) VARIANT TransposeOutput 
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TransposeOutput 是 VT_BOOL 型 的 VARIANT 变量 ,其 作用 在 于 控制 输出 数组 是 否 
转 置 。 

MWDataConversionFlags DataConversionFlags 

DataConversionFlags 属性 控制 输入 参数 需要 强制 转换 时 的 规则 , MWDataConversion- 
Flags 是 不 可 创建 的 类 ,只 能 通过 MWFlags 类 的 实例 来 访问 。 

MWDataConversionFlags 包含 下 面 四 个 属性 : 

@ mwDataType CoerceNumericToTypey 

@ mwDateFormat InputDateFormat' 

@ VARIANT OutputAsDate; 

@ long DateBias 。 

其 中 属性 CoerceNumericToType 的 作用 在 于 可 以 将 所 有 的 数值 输入 参数 强制 转换 为 一 
种 特定 的 Matlab 类 型 , 当 调用 COM 对 象 的 客户 端的 各 种 数值 格式 与 Matlab COM 组 件 的 需 
求 不 一 样 时 ,这 个 属性 就 会 非常 有 用 。 比 如 ,可 以 将 long,int 等 其 他 各 种 不 同类 型 数据 格式 转 
换 为 double 型 。 

其 他 属性 变量 的 含义 参见 6. 4. 4 节 关于 数据 转换 标志 的 说 明 。 

(3)Clone( MWFlags ** ppFlags) 

复制 当前 MWFlags 对 象 。 

3， MWStruct 类 


使 用 MWStruct 类 ,可 以 使 调用 Matlab Dotnet Builder 的 客户 程序 方便 地 对 Matlab 结构 
体 进 行 操作 。 其 主要 的 接口 函数 如 下 所 述 。 
(U HRESULT Initialize( VARIANT varDims,VARIANT varFieldNames) ; 
Initialize 根据 输入 参数 分 配 一 个 结构 体 。 
输入 参数 : 
VARIANT varDims ”结构 体 的 维 数 数组 。 
VARIANT varFieldNames ”每 个 结构 体 字段 的 名 字 。 
说 明 : 
创建 时 MWStruct 对 象 只 是 1X 1 维 的 结构 体 阵列 ,而且 不 包含 任何 域 。Initialize 函数 初 
始 化 新 创建 的 结构 体 。 两 个 参数 可 以 选择 输入 ;如 果 两 个 都 不 输入 的 话 , 那 么 与 之 对 应 的 结构 
体 性 质 不 发 生变 化 。 例 如 ,如 果 输 入 参数 varDims 没有 输入 , 则 结构 体 维 数 不 变 。 
(2) HRESULT get_Item ( 
VARIANT i0， 
VARIANT il， 
VARIANT iP， 
VARIANT 记 3， 


VARIANT i31， 
struct IMWField ** ppField 
) 
通过 索引 来 获取 结构 体 相应 的 域 ,返回 放 在 IMWField ** ppField 里 面 。 可 以 提供 下 面 
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几 种 形式 的 索引 。 

1) 直接 用 字段 名 

只 有 1X1 的 结构 体 数组 才能 这 么 做 ,例如 对 某 个 结构 体 数 组 的 “color" 字 段 采 用 字段 名 
的 索引 方式 为 [color], 其 实例 代码 如 下 所 示 。 






:IMWField * pField= NULL; 

// 将 此 结构 体 初始 化 为 1* 1 的 数组 

const OLECHAR * FieldNames[2]= {L" color , 必 " shape" ); 
VARIANT varMissing; 

VARIANT varDims; 

VARIANT varFields; 

VARIANT varFieldNamey 

Variantinit(&varDims); 

Variantlnit(&varFields) 

Variantinit(&varMissing); 

Variantinit(&varFieldName) ; 

varMissing.vt= VT_ERROR 

varMissing. scode= DISP_E_PARAMINNOTFOUND;// 这 两 条 语句 创建 的 VARIANT 表示 没有 变量 输入 
GetDimsArray(1,1vvarDims)， 

GetFieldNamesArray(nFields ,FieldNames,varFields)* 

pStruct, Createlnstance(_uuidof(MWComUtil: :MWStruct))# 
pStruct- > Initialize(varDimsyvarfields)， 

// 下 面 对 结 构 体 的 各 个 城 进 行 冉 值 操作 


// 直 接 采 用 字段 名 获取 相应 的 城 

CString stName= "color'; 

varfieldName. vt= VT_BSTR， 

varfieldName .bstrval = strName. AllocSysString(); 
pStruct - >get_ltemdvarfieldName ,varMissing,…，,varMissing,&pField)， 
// 下 面 可 以 对 获取 的 域 进行 操作 

VARIANT valuey 

VariantlnitC&value)， 

value.vt= VT_R8， 

value.dblval= 20; 

pField- >put_ValueCvalue)， 


2) 采用 索引 和 字段 名 称 
采用 简化 的 索引 表达 形式 为 [2,1,"color"],[2,1,"color"] 与 [2，"color"] 等 价 ,其 实例 代 
码 如 下 所 示 。 
IMWstructPtr pStruct; 
IMWField * pField= NULL; 
/7 创建 并 初始 化 2* 2 二 维 结构 体 数 组 ,结构 体 的 域名 和 域 的 个 数 与 上 述 一 至 
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// 采 用 索引 和 字段 名 称 获取 相应 的 域 

VARIANT varindex[2]， 

VariantlnitCvarlndex); 

Variantlnit(varlndex+ D 

varlndex[0].vt=VT_H; 

varlndex[O].iVal= 2 

varlndex[1].v=VTLHM; 

varlndex[1.iVal=1; 

VARIANT varfieldNamei 

Variantinit(&varfieldName)， 

CString strName= "color' 

varfieldName. vt= VT_BSTR; 

varFieldName. bstrval = strName. AllocSysString()， 

// 下 面 两 种 获取 域 的 方式 完全 等 价 ,产生 的 结果 也 一 样 

pStruct- 二 get_ltem(varlndex[0] ,varFieldName,varMissing,… ,varMissing,&pField)， 
pStruct- >get_item(varlndex[0] ,varlndex[ 上] ,varfieldName,varMissing,… ,varMissing,&pField)， 
// 对 获取 的 域 进 行 操作 


对 于 结构 体 的 索引 ,需要 注意 如 下 两 点 ， 

@ 字段 名 必须 是 最 后 一 个 参数 。 

@@ 字段 名 是 对 字母 大 小 写 敏 感 的 。 

(3) HRESULT get_FieldNames(VARIANT * pvarFieldNames) ; 

得 到 结构 体 数 组 域 的 名 称 ,pvarFieldNames 包含 一 个 字符 串 的 元 组 。 

(4)HRESULT get_Dims ( VARIANT * pvarDims ); 

得 到 结构 体 数 组 的 维 数 信息 ,pvarDims 包含 一 个 一 维 整 型 数组 。 

(5)HRESULT get_NumberOfFields ( long * pnFields ) ; 

得 到 域 的 数目 。 

(6)HRESULT get_NumberOfDims ( long * pnDims ); 

得 到 结构 体 数组 的 维 数 。 

(7)elone(IMWStruct xx ppStruct ) 

复制 结构 体 数 组 。 

4 MWField 类 

MWField 类 包含 MWStruct 的 字段 信息 的 引用 。MWEField 类 是 不 可 创建 的 ,其 常用 接 
口 函 数 如 下 所 述 。 

{1) 操作 域 值 的 get_value 和 put_value 接口 

HRESULT get_Value ( VARIANT * pvarValue ) ; 

HRESULT put_Value ( VARIANT pvarValue ); 

(2) 采用 get_Name 得 到 域 的 名 称 

HRESULT get_Name ( BSTR * pbstrName ) ; 
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(3) 操作 字段 转换 标志 的 接口 

MWField 类 的 MWFlags 属性 存储 一 个 MWFlags 对 象 的 引用 ,作为 相应 字段 的 数据 转 
换 标志 。 当 涉及 到 MWStruct 的 使 用 时 , MWStruct 自己 的 MWFlags 会 覆盖 调用 对 象 的 
MWFlags 以 保证 MWStruct 数据 转换 的 正确 性 。 

HRESULT get_MWFlags ( IMWFlags *x ppFlags ); 

HRESULT put_MWEFlags (IMWFlags * ppFlags ); 

HRESULT Clone (IMWEField xx ppField ); 

5. MWComplex 类 

使 用 MWComplex 类 ,可 以 使 调用 Matlab Dotnet Builder 的 客户 程序 方便 地 对 Matlab 
复数 类 型 数值 阵列 进行 操作 。 其 主要 的 接口 函数 如 所 述 。 

(1) 实 部 和 虚 部 进行 写 出 和 读 入 操作 

HRESULT get_Real ( VARIANT * pvarValue ); 

HRESULT put_Real ( VARIANT pvarValue )， 

HRESULT get_Imag ( VARIANT * pvarValue )， 

HRFESULT put_Imag ( VARIANT pvarValue )， 

(2) MWFlags 数据 转换 标志 的 读 入 和 写 出 操作 

HRESULT get_MWFlags (IMWFlags *x ppFlags ) ; 

HRESULT put_MWFlags (IMWFlags * ppFlags ); 

(3) 复制 操作 

HRESULT Clone (IMWComplex xx ppComplex ); 

6，MWSparse 类 

使 用 MWSparse 类 ,可 以 使 调用 Matlab Dotnet Builder 的 客户 程序 方便 地 对 Matlab 稀 
疏 矩 阵 数值 阵列 进行 操作 。 其 主要 的 接口 函数 如 下 所 述 。 

(1) 对 稀疏 矩阵 存储 非 零 元 素 值 的 数组 进行 操作 的 函数 。 

稀 朴 矩阵 存储 非 零 元 素数 组 的 类 型 可 以 是 任何 能 够 强制 转换 成 VARIANT 的 类 型 ,而且 
必须 能 够 分 解 和 强制 转换 成 double 或 VARIANT_BOOL 类 型 的 数值 矩阵 。 

HRESULT get_Array ( VARIANT * pvarArray ) } 

HRESULT put_Array ( VARIANT pvarArray ); 

(2) 稀 朴 矩阵 行 数 和 列 数 的 操作 函数 

稀 朴 矩阵 的 行 数 和 列 数 都 是 非 负 的 。 如 果 行 数 为 零 时 ,实际 行 数 为 行 数 索引 值 (RowInd- 
ex) 的 最 大 值 ;如 果 列 数 为 零 时 ,实际 列 数 为 列 数 索 引 值 (CColumnIndex) 的 最 大 值 。 

HRESULT get_NumRows ( long * pnRows ) ; 

HRESULT put_NumRows (long pnRows ) ， 

HRESULT get_NumColumns ( long * pnColumns ) ， 

HRESULT put_NumColumns ( long pnColumns ) ; 

(3) 稀疏 矩阵 的 行 数 和 列 数 的 索引 值 操作 函数 

行 数 索引 值 存储 了 所 有 非 零 值 的 数组 元 素 的 索引 。 这 个 属性 的 值 可 以 是 任何 能 够 强制 转 
化 为 VARIANT 类 型 的 数值 类 型 ,也 可 以 是 对 象 类 型 ,但 是 必须 能 分 解 或 者 强制 转换 成 long 
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型 数值 矩阵 。 如 果 行 数 (NumRows) 是 非 零 的 ,并 且 如 果 任何 一 行 索引 大 于 行 数 (NumRows)， 
就 会 产生 一 个 无 效 索引 的 错误 。 如 果 行 数 索引 (RowIndex) 数 组 的 元 素 个 数 与 存储 非 零 元 素 
值 的 数组 的 元 素 个 数 不 相 符 , 则 也 会 产生 一 个 错误 。 对 于 列 数 索引 而 言 ,同样 存在 上 述 问题 。 

HRESULT get_RowIndex ( VARIANT * pIndex ); 

HRESULT put_RowIndex ( VARIANT pIndex )， 

HRESULT get_ColumnIndex ( VARIANT * pIndex ); 

HRESULT put_ColumnIndex ( VARIANT pIndex ); 

(4) 稀疏 矩阵 复制 函数 

HRESULT Clone ( struct IMWSparse xx ppSparse )， 

7. MWArg 类 


MWArg 类 用 来 向 一 个 编译 好 的 类 传递 参数 ,通过 数据 转换 标志 来 实现 将 一 个 参数 传人 
的 目的 。 

(1) VARIANT Value 

表示 要 传递 的 参数 。 

(2) MWFIags MWEFlags 

数据 转换 标志 ,此 标志 歼 盖 调用 对 象 或 者 方法 的 所 有 MWFlags。 

(3) clone(MWArg ** ppArg) 

复制 MWArg 类 。 


6.5.3 ”Matiab Dotnet Builder 的 枚 举 类 型 


Matlab Dotnet Builder 工具 库 提 供 三 种 类 型 的 枚 举 类 型 ,其 定义 如 下 所 述 。 
1 mwArrayFomat 
mwArrayFormat 用 来 表示 输入 输出 数据 转换 格式 的 规则 。 


typedef enum mwArrayFormat 

| 
mwArrayFormatAsls 0,// 保 持原 有 的 数据 格式 不 变 
mwArrayFormatMatrix = 1,// 只 要 能 转换 为 短 阵 , 则 转换 为 拭 阵 
mwArrayformatCell “= 2 // 只 要 能 转换 为 元 组 , 则 转换 为 元 组 

}mwArrayFormat; 


2. mwDataType 
mwDataType 是 一 个 表示 数据 类 型 的 常数 集 ,其 表示 的 数据 类 型 如 图 6 -4 所 列 。 


typedef enum mwDataType 
《 
mwTYpeDefault = 
mwTypelLogical = 
mwTypeChar 
mwTypeDouble 
mwTypesingle 


huwe 


[0 
1 
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mwTypeintg ”= 8， 
mwTypeUint8 = 9， 
mwTypeintl6 = 10， 
mwTypeUintl6 = 11， 
mwTypein32 = 12， 
mwTypeUin32 = 13 












































}mwDataType 
表 6-4 mwDataType 表示 Matiab 数据 类 型 
常 数 数 值 Matlab 类 型 
mwTypeDefault 0 NA | 
mwTypeLogical 3 togical 
mwTypeChar 4 char 
mwTypeDouble 6 double 
mwTypeSingle 7 single ] 
mwTypelnt8 8 int8 
mwTypeUint8 9 | uints 
mwTypelntl16 lo intl6 
mwTypeUintl6 1 uintl6 
mwTypelnt32 12 int32 
mwTypeUint32 13 uint32 二 











3，mwDateFormat 
mwDateFormat 表示 日 期 转换 格式 的 常数 集 。 
typedef enum mwDateFormat 
{ 
mwDateFormatNumeric = 0,// 日 期 数据 采用 数值 格式 表示 


mwDateFormatString “= 1 // 日 期 数据 采用 字符 曲 格 式 表示 
}mwDateFormat; 


6.5.4 安装 和 发 布控 件 


采用 Matlab Dotnet Builder 将 控件 制作 完成 以 后 ,可 以 采用 Dotnet Builder 的 GUI 工具 
将 控件 及 其 所 需要 的 Matlab 库 文件 一 并 打包 ,以 方便 安装 。Malab Dotnet Builder 制作 的 控 
件 的 安装 和 发 布 如 表 6- 5 所 列 。 


表 6-5 ”Matlab Dotnet Builder 制作 的 控件 的 安装 和 发 布 




















文 件 文件 的 功能 
_install bat 安装 程序 要 调用 的 批 处 理 文件 
《componentname_projectversion》. dll | 需要 注册 的 组 件 动态 链接 文件 
《componentname).ctf 组 件 运行 所 需 的 ctf 文件 





用 DotnetTool 打开 需要 打包 的 工程 ,选择 Component | Package Component 菜单 项 , 然 
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后 出 现 图 6- 14 所 示 的 打包 工具 对 话 框 ,使 用 打包 工具 可 以 很 方便 地 生成 一 个 经 过 压缩 的 可 
自动 执行 的 组 件 安装 程序 (选择 Include MCR 选项 ) 。 组 件 安装 将 下 面 这 些 文件 压缩 成 一 个 


文件 ,以 方便 开发 人 员 使 用 。Dotnet Builder 生成 的 安装 文件 的 名 字 为 (componentname). 
exe, 如 需 安装 ,在 目标 机 器 上 运行 即 可 。 


Package Files 
Add File | Remove File | 
中 Include MCR MCR Location … 


Package Files 

埋 USser Files 
由 二 System Files ] 
间 吕 D WMATLABR2007atoolboxcompilendel 


























图 6-14 Matlab Dotnet Builder 安装 文件 打包 对 话 框 


6.6 综合 实例 


6.6.1 实例 1 数据 转换 及 数组 格式 标志 的 使 用 


如 果 要 调用 Matlab Dotnet Builder 生成 的 COM 组 件 ,不 可 避免 地 存在 外 部 程序 与 Mat- 
lab Dotnet Builder 生成 的 组 件 之 间 的 数据 交互 问题 ,本 实例 向 读者 演示 了 如 何 通过 SAFE- 
ARRAY 向 Matlab Dotnet Builder 生成 的 组 件 传递 数据 ,并 说 明 如 何 设置 数组 格式 标志 。 
例 的 主要 功能 是 显示 COM 组 件 调用 程序 输入 数据 ,其 实现 的 步骤 如 下 所 述 。 

@ 创建 M 文件 displyinput. m 的 代码 如 下 所 示 。 


function [ = displayinput(x) 
%function 口 = displayinputC) 
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% 显示 输入 的 数据 
诈 sa(xy'celt 7 
disp('The input data isa celll 0; 
x 
else 
disp('The input data sa matrix! 0) 
x 


end 


@@ 利用 Matlab Dotnet Builder 制作 COM 组 件 testcellormatrix。 

图 在 testcellormatrix 工程 生成 的 src 目录 下 找到 mwcomtypes. h testcellormatrix_idl. h 
和 testcellormatrix_idl_i ec 文件 (也 可 以 利用 Visual C 十 十 6. 0 Tools|OLE/COM Object 
Viewer 生成 文件 testcellormatrix_1_0. h 和 testcellormatrix_1_0.c) 。 

图 创建 Win32 console 工程 cellormatrixvc, 将 mwcomtypes. h testcellormatrix_idl. h、 
testcellormatrix_idl_i, ec 文件 加 入 到 新 建 的 VC 十 十 工程 中 。 

加 编辑 程序 代码 ,编译 执行 程序 。 

其 中 主要 代码 在 cellormatrixvc, epp 文件 中 实现 ,如 下 所 示 。 


/1* cellormatrixvc. cpp 文件 内 容 * / 
提 include "stdafx.h” 
#include 一 afxdisp.h> 
# 井 include "windows.h” 
//##include "comutil h” 
// 划 include "mwutil.h” 
提 include "mwcomutil h” 
间 import "DIMATLABR2007aNbin\win32\mwcomutil. dl”raw_interfaces_only 
井 include "testcellormatrix_idl.h” 
井 include "COMDEF.H" 
int main(Cint argc,char * argv[) 
{ 
V/ Initialize COM 
放 ((FAILED(ColnitializeCNULL)))) 
{ 
printf(" Colnitialize failed.\n" )， 
exit(TD 4 


SAFEARRAY * pai 
pa = SafeArrayCreateVector(VT_VARIANT,0,3); 
COlevariant var1= "ar 

COlevariant var2= "d" 

COlevariant var3="g 

VARIANT varln 
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VariantlnitC&varin) ， 
varn.vt= VT_VARIANTIVT_ARRAY; 
VARIANT * datat 
HRESULT hr; 
hr = SafeArrayAccessData(pa, (void ** )&data); 
iFAILED(hr ) 
{ 
return 0; 
》 
data[0]= var1; 
data[1] = var2; 
data[2] = var3; 
SafeArrayUnaccessData(pa); 
data= NULL 


varln.parray= pa 


lestcellormatrix * pCellOrMatrix= NULL 





hr = CoCreatelnstance( CQLSID_testcellormatrix,NUUL,QLSCTX_ALL,NID_ltestcellommatrix, (void ** )&pCellOrMatriD) 


if(FAILED(hr) ) 
人 
return 0 


printfC” wwwwwwwwwww Default Data Transformnatignn on 可 本 人 人 可 NT 
printf(" The InputArrayFormat is mwArrayFormatMatrix\n” ) + 


pCellOrMatrix- 二 displayinput(varin); 


MWComutil: :IMWFlagsPtr pFlags= NULL; 


MWComutil: :IMWArrayformatFlagsPtr pArrayformatflags= NULL 
pFlags, Createlnstance(_uuidof(MWComUtil: :MWFlags))， 
pflags - >get_Arrayformatflags(&pArrayFormatflags)， 


mwArrayFormat arrayFormaty 
/Varrayformat = mwArrayformatMatrix 
arrayFormat = mwArrayformatAslsy 


pArrayFormatFlags - 二 put_lInputArrayFormat(arrayFormat) 


IMWFlags * plflags= NULL; 
pFlags 一 二 QueryiInterface(&plflags); 


pCellOrMatrix- >put_MWFlags(plflags); 
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Printf(” www wwwywsssswssss Changed Data Transformnation wwwsssx NI) 
printf(" The InputArrayFormat is mwArrayformatAslsNn  ); 
pCellOrMatrix 一 >displayinput(varln); 


pCellOrMatrix 一 二 Release(); 
//pCellOrMatrx= NULL; 


/Variantinit(&varln); 
varn.vt= VT_EMPTY; 
varln.parray= NULL 
/VSafeArrayDestroyData(pa); 
pa= NUUL 

//pa=NULL 

/data= NULL; 
pArrayFormatflags= NULL; 
pFlags= NULL; 
CoUninitialize()， 

retun 0; 

}》 


6.6.2 实例 2 采用 MWUtil 处 理 varargin 输入 和 varargout 输出 


在 Matlab 程序 设计 中 ,通过 varargin 输入 和 varargout 输出 对 不 定 个 数 的 输入 和 输出 参 
数 进行 处 理 。 由 于 Matlab Dotnet Builder 生成 的 组 件 实际 上 是 用 Matlab 语言 编写 的 ,因而 同 
样 存在 处 理 不 定 个 数 输入 和 输出 参数 的 问题 。 在 C/C 十 十 语言 中 对 输入 和 输出 参数 的 个 数 要 
求 必 须 是 确定 的 ,但 是 可 以 通过 Matlab 提供 的 MWUtil 组 件 实现 对 varargin 输入 和 varar- 
gout 输出 的 处 理 。 
实例 2 的 实现 步骤 与 实例 1 类 似 , 首 先 创 建 三 个 函数 文件 sortinputstring. m、createdic- 
tionary, m 和 displayinput m。 其 中 sortinputstring 函数 用 来 将 输入 的 varargin 元 组 阵列 的 
字符 串 元 素 按照 升序 排序 ,createdictionary 用 来 创建 本 实例 需要 的 varargout 元 组 阵列 ,dis- 
playinput 用 来 显示 Matlab 阵列 内 容 。 然 后 利用 Matlab Dotnet Builder 将 sortinputstring. 
mycreatedictionary. m 和 displayinput. m 编译 为 COM 组 件 ,并 在 VC 十 十 6. 0 客户 程序 中 调 
用 生成 好 的 COM 组 件 。 
sortinputstring ,createdictionaryvdisplayinput 三 个 函数 及 VC 十 十 6. 0 的 客户 程序 代码 
如 下 所 示 。 
function [varargout] = sortinputstring(varargin) 
% function [varargout] = sortinputstringLvarargin] 
%sortinputstring. m 
varargout = sort(varargin); 


function [varargout] = createdictionary() 
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%function [y] = createdictionary() 

% createdictionary.m 

dic= cel(1,10); 

dic(1) ='edi'; 

dic{21= file' 

dict3) = view' 

dic(4) = ,window' 

dict5) = help'; 

dict6} = Mormat'; 

dic{7) project 

dic(8} = 'search' 

dic{9} = 'column'; 

dicf10) = 'properity 

for i= 1:nargout 
varargout{i = dic{ 这 # 

end 


function [] = displayinputCx) 
%function [] = displayinputCx) 
% displayinput.m 

disp(x) 


/smwutilvc.qpp 文件 内 容 */ 
间 include "stdafx.h” 
林 include "stdio.h 


#include 一 afxdisp.h> 
井 include "windows.h” 
井 include "mwcomutil.h” 


#import "D:NMATLABR2007aNbinNwin32Nmwcomutil. dll”raw_interfaces_only 


1// 井 include "testcetlormatrix 1-0.h 
井 include "testmwutilLidl. 
# include "COMDEF.H 


#define _TEST_STR_NUM 10 


int main(int argcvchar * argv[]) 
{ 
if ((FAILED(ColnitializeCNULLD) 7) 
{ 
printf(" Colnitialize failed.\n" ); 
exitCD 
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】} 

HRESULT hr; 

MWComutil: :IMWutilPtr pIMWUtl= NUUL; 

hr= plIMWUtil. Createlnstance(_uuidof(MYWVComUtil 
放 FAILED(hr)》 

{ 





retumn 0; 


VARIANT varStr[_TEST_STR_NUM] ; 
VARIANT varStrEmptyyvarStrOut; 
VariantinitC&varStrEmpty); 
Variantinit(&varStrOut); 
int i= 0; 
for(i=Oii<_TEST_STR_NUM5i++ ) 
{ 

Variantinit(varStr+ D 
上 
/VOLECHAR tmpChar[T]= ,at 


testmwutil * PTestUtil= NULL; 
hr = CoCreatelnstance(CLSID_testmwutil,NULL,CLSCTX_ALL,ND_liestmwutil, (void ** )&pTestUtiD + 


放 (FAILED(Chr) ) 
人 
returmn 0* 


// 创 建 字典 数据 - 一 一 元 组 varargout 

pTestUtil- >createdictionary(_TEST_STR_NUM&varStrOut)， 
printf( "creating dictionary celll :\n” )， 

pTestUtil 一 displayinput(varStrOut); 


VARIANT_BOOL isResize= 1 


Printf("\n")# 
printf("UnPacking the created dictionary cell:\m ); 
plIMWUtil- >MWUnpack(varStrOut,0,isResizevvarStryvarStr+ 1,varStr+ 2， 
varSstr+ 3vvarStr+ 4,varStr+ 5vvarStr+ 6vvarStr+7， 
varSstr+ 8,varStr+ 9,NULL,NULL,NULL,NULL， 
NULL,NULL,NULL,NULL,NULL,INULL,NULL,NUUD) 
for(i=0;i 和 <_TEST_STR_NUMi5i++ ) 
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pTestUtil- >displayinput(varStr[ 门 )， 
学 
PTestUtil- >>sortinputstring( 10,&varStrOut,varStrOubD ， 


printf("\n' )， 
printf(" sorting the dictionary cell:\n” )， 
pTestUtil 二 displayinput(varStrOut); 


plIMWUtil - 二 MWUnpack(varStrOut,OvisResizeyvarStrvvarStr+ 1vvarStr+ 2， 
varStr+ 3vvarStr+ 4,varStr+ 5vvarStr+ 6vvarStr+7， 

varstr+ 8vvarStr+ 9,NUL,NULL,NULL,NULL， 
NULL,NUL,NULL,NULL,NULL,NULL,INULLNULD) 

printf("\n' )， 

printf("UnPacking the sorted dictionary cell:\n" )， 

for(i= ONi<_TEST_STR_NUMii++ ) 

{ 

pTestUtil- >displayinput(varStr[ 门 ); 
)} 


plIMWUtil- >Release()， 
plMWutl= NUUL， 
pTestUtil- > Release()， 
pTestUtil= NULL; 


CoUninitializeC)， 

printf("\nNnpress any key to exitn )， 
getchar() 

return 0 

》 


6.6.3 实例 3 MWStruct 和 MWField 操作 实例 


Matlab 结构 体 阵列 是 Matlab 的 一 类 重要 的 数据 类 型 。Matlab 结构 体 阵列 远 比 一 般 意义 
上 的 C/C 十 十 语言 的 结构 体 数组 复杂 的 多 ,关于 Matlab 结构 体 阵列 读者 可 以 参考 本 书 1. 2. 1 
节 和 3. 11 节 关于 Matlab 结构 体 阵列 的 描述 。 在 Matlab Dotnet Builder 生成 的 COM 组 件 的 
调用 程序 中 ,可 以 通过 Matlab 提供 的 MWStruct 和 MWField 组 件 对 Matlab 结构 体 及 Mat- 
lab 结构 体 的 域 进 行 操作 。 

在 本 实例 的 代码 中 ,添加 了 一 个 函数 ShowCOMError 用 于 显示 VC 十 十 6. 0 在 调用 Dot- 
net Buidler 生成 的 组 件 时 的 错误 信息 ,读者 不 必 深究 其 中 的 代码 含义 ,如 果 有 兴趣 的 话 可 以 参 


242 精通 Matlab 与 C/C 十 十 混合 程序 设计 (第 2 版 ) 








考 相 关 介绍 COM 组 件 的 书籍 。 


本 实例 的 实现 步骤 与 实例 1 有 一 点 不 同 : 本 实例 建立 了 两 个 COM 组 件 structcombi- 
necom 和 structutils, 并 在 VC 十 十 中 同时 调用 。structcombine. m displaystruct. m 和 实现 
COM 组 件 调 用 的 mwstruct_test. cpp 代码 如 下 所 示 。 


function [structOut] = structcombine(structin1ystructin2,namelvname2) 
% function [structOut] = structcombine(structin1 ,structin2,namelvname2) 
% 结 构 体 输入 输出 类 型 转换 

% 将 输入 的 两 个 结构 体重 新 组 合成 新 的 结构 体 

structOut = structCname1,structln1,name2 ,structin2); 


function [] = displaystruct(in) 
%function [] = displaystruct(in) 
disp(in)， 


VE mwstruct_test, cpp 文件 内 容 * / 
include 一 stdio.h> 
间 import "D:\MATLABR2007aNbin\win32\mwcomutil. dl”raw_interfaces_only 


井 include "mwcomutil.h” 
##include "structcombinecom_idl.h 
间 include "structutils_idl.h” 


// 得 到 COM 调用 过 程 中 的 错误 并 向 标准 输入 设备 输出 错误 信息 
void ShowCOMError(IUnknown * pUnk,REFIID iid) 
{ 

SupportErrorlnfo * _pSupportErrorlnfo= NUUL 

IErrorlnfo * pErrorlnfo= NULL; 

HRESULT hr= S_OK; 

wchar_t szTemp[128]; 

_bstr_t bstrMessage = _bstr_t(”" )， 


if (pUnk== NULL) 
returns 
并 (SUCCEEDED(pUnk - 二 QueryInterface(NID_iSupportErrorinfo, 
(void ** )&pSupportErrorinfo) )) 


放 (pSupportErrorinfo - 过 InterfaceSupportsErrorinfo(iid) == S_OK) 
{ 

GetErrorinfo(0,&pErrorinfo); 

BSTR bstrDescs 

BSTR bstrSourcei 

pErrorlnfo- 之 CetDescription(&bstrDesc); 
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pErrorlnfo - 之 GetSource(&bstrSource) ; 

swprintf(szTemp,L"Error: 0x%08x" ,hp 

bstrMessage + = szTempi 

bstrMessage + = ”Source: "1 

bstrMessage + = _bstr_t(bstrSource); 

bstrMessage + = ”Description: "， 

bstrMessage + = _bstr_t(bstrDesc); 

printf(" % sNn”, (char * )bstrMessage); 

if (bstrDesc ! = NULL) 
SysFreeString(bstrDesc); 

if (bstrSource ! = NULL) 
SysFreeString(bstrSource) ;， 

pErrorlnfo- >Release()， 

pErrorlnfo= NULL 

}》 

pSupportErrorinfo 一 二 Release()， 

pSupportErrorlnfo= NUUL; 


// 创 建 一 维 VT_I4 类 型 的 VARIANT 数组 ,其 维 数位 rm 
HRESULT CetDimsArray(int mint ny*VARIANT& var) 


人 


int w pv=NULL; 


ifm<1lln<1D 


printf(" Invalid dimensions\n  )， 
return E_FAIL 
)} 
SAFEARRAYBOUND rgsabound[ 们 = {(2,1)) 
SAFEARRAY * psa= SafeArrayCreate(VT_M ,1 TBsabound)， 
if (psa== NULL) 
{ 





printf(" Error creating safearray\n' 4 

retum E_FAIL; 
} 
诈 (FAILED(SafeArrayAccessDataKpsayCvoid wy )&pv))) 
{ 

SafeArrayDestroy(psa); 

printf(" Error accessing safearray\n' ) 

retum E_FAIL; 


244 


精通 Matlab 与 C/C 十 十 混合 程序 设计 (第 2 版 ) 





pvLOJ=m; 

pv[L1]=n; 
SafeArrayUnaccessData(psa); 
varvt=VILHIVT_ARRAY; 
var.parray 二 psaf 

retum S_OKi 


1/ 创建 一 维 VT_BSTR 类 型 的 VARIANT 数组 ,并 根据 输入 结构 体 域名 FieldNames 设置 VARIANT 数组 的 内 容 
HRESULT CetfieldNamesArray(int nfields,const OLECHAR wx FieldNames,VARIANT& var 
{ 

BSTR* pv= NUUL 


if Cnfields 一 9) 
{ 
printf(" invalid number of fieldsvm )， 
retum E_FAIL; 
1) 
SAFEARRAYBOUND rgsabound[ 们 = {{fnFields,1)) 
SAFEARRAY * psa = SafeArrayCreate(VT_BSTR,1，vrgsabound); 
诈 (psa==NUUL) 
{ 
printf(" Error creating safearray\n' )， 
return E_FAIL; 
} 
诈 (FAILED SafeArrayAccessData(psa, (void ww )&pv))) 
{ 
SafeArrayDestroy(psa)} 
printf(" Error accessing safearray\m ) 
retumn E_FAIL 
》 
for (int i=0; i 王 nfields; i++ ) 
{ 
pv[ 口 = SysAllocString(FieldNames[ 门 ); 
SafeArrayUnaccessData(psa) 
var.vt= VT_BSTRIVT_ARRAY:; 
var. parray 二 psaf 
return S_OK; 
} 


// 创建 1X 1 的 结构 体 阵列 ,其 内 容 根据 输入 Values 设置 ,其 域名 根据 输入 FieldNames 设置 
1// 输入 参数 如 FieldNames 和 Values 一 一 对 应 , 即 结构 体 域名 位 FieldNames[ 门 的 域 值 等 于 Values[ 门 , 且 
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7/ 其 个 教 都 为 nfields。 假 定 输入 的 MWStruct * pStruct 已 经 初始 化 。 

HRESULT CreateStruct(MWComUtil: : IMWStructPtr& pStruct, int nFields, const OLECHAR ** 
VARIANT * values) 

{ 





MWComutil: :IMWField * pField= NULL; 
HRESULT hr= S_OK; 

VARIANT varMissing; 

VARIANT varDimst 

VARIANT varfields; 

VARIANT varFieldName; 


inti=0 


// 初始 化 临时 变量 

Variantinit(&varDims); 

VariantlnitC&varfields)， 
Variantinit(&varMissing)， 
Variantinit(&varfieldName) ， 

varMissing. vt= VT_ERROR 

varMissing.scode = DISP_E_PARAMNOTFOUND， 


// 创建 维 数 数组 

放 (FAILED((hr = GetDimsArray(1,1,varDims)))) 
goto EXIT， 

// 创建 域名 数组 

if (FAILED((hr = GetFieldNamesArray(nFields,FieldNames,varfields)))) 
goto EXIT， 

hr= pStruct 一 二 Initialize(varDims,varFields)， 


诈 CFAILEDChr) ) 
{《 
printf( "Initialize struct failed.\n') 5 
Boto EXIT; 
} 
for (i=0; i<nfields; i++) 
{ 
varfieldName.vt= VT_BSTR; 
varfieldName.bstrval = SysAllocString(FieldNames[ 门 )， 
hr= pstruct- > getLkem( 
varFieldName， 
varMissing ,varMissing,varMissing ,varMissing,varMissing， 
varMissing,varMissing,varMissing,varMissing,varMissing， 
varMissing ,varMissing,varMissing,varMissing ,varMissing 
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varMissing,varMissing ,varMissing ,varMissing,varMissing， 
varMissing ,varMissing,varMissing ,varMissing ,varMissing , 
varMissing,varMissing,varMissing,varMissing,varMissing， 
varMissing,&pField); 
pField-- >put_ValueCvalues[ 门 ); 
pfieid- >Release(); 
pfield= NUUL 
VariantClearC&varfieldName)， 
}》 
EXIT: 
// 退出 时 释放 内 存 
VariantClear(&varDims)， 
VariantClear(&varfields) 
VariantClear(&varfields)， 
VariantClear(&varfieldName) ; 
if (pField ! = NULL) 
pField 一 >Release()， 
return hr 


// DoTest 函数 创建 一 个 由 三 个 域 的 结构 体 , 其 域名 分 别 位 "a 
7/ 





每 个 城 的 城 值 位 一 个 1X 1 的 双 精度 数值 阵列 ,然后 调用 Matlab Dotnet Builder 生成 的 COM 组 件 的 


displaystruct 方法 显示 生成 的 结构 体 。 
HRESULT DoTest()》 
{ 

HRESULT hr= S_OKi 


MWComUnil: :IMWSstructPtr pStruct; 
MWComUtil: :IMWStructPtr pStruct1; 


const OLECHAR * FieldNames[3] = 人 La bb bc 
VARIANT values[3]; 

VARIANT varStruct 

int nret=0; 


// 初始 化 VARIANT 变量 
Variantinit(&varStrucD ; 
for (inti=0i<35 i++) 
{ 
Variantinit(&values[ 门 ); 
values 中 .vt= VT_R8; 
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values[ 昌 .dblval= (double)Ci+ 1D); 


// 创建 1X1 结 构 体 ,其 域 分 别 为 "a 





"c" ,相应 的 域 值 位 5.a= 1,s.b=2,s.c=3 


hr = pStruct. Createlnstance(_uuidof(MWCombUtil: :MWStrucb)， 
pStruct1. Createlnstance(_uuidof(MWComUtil: :MWStructD) )， 





if (FAILED(hpD ) 
{ 
printf(" Createlnstance on MWStruct failed.\n")， 
hr=E_FAIL; 
goto EXIT 
)》 
hr= CreateStruct(pStruct,3 ,FieldNamesvvalues)， 
诈 (FAILEDChry) 
{ 
printf(" Creation of struct failed.\n" ) 
hr=E_FAIL 
goto EXIT, 
上 
hr= pStruct - 之 Querylnterface(1NID_IDispatch, (void w* )&(varStruct,pdispVal))， 
if (FAILEDKhr ) 
{《 
printf("QI failed for some reason??? \m ) 
hr=E_FAIL; 
goto EXIT; 
上 
varstruct.= VT_DISPATCH; 


EXIT: 
// 退 出 并 寿 放 内 存 
VariantClear(&varStruct); 
if (pStruct ! = NUULD) 
pstruct= NULL; 


return hr 


// 本 实例 的 main 函数 
int main(int argcvconst char ** argv) 
{ 

int n=0; 
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int nret=03; 


/1/ 初 始 化 COM 

诈 ((FAILED(ColnitializeC(NULL)))) 

{ 
printf(" Colnitialize failed. \n" )， 
exit(1D) 


// 调 用 DoTest 测试 结构 体 的 创建 
nret= (DoTest() ==S OK ?0 :1); 


// 下 面 的 代码 演示 如 何 创建 两 个 结构 体 , 并 通过 调用 combinestruct 方法 实现 结构 体 合并 
lstructcombinecom * pStructCombineCom= NULL 
HRESULT hr 
hr= CoCreatelnstance(CLSID_structcombinecom,NULL， 
CLSCTX_ALL,NID_lstructcombinecom, (void ** )&pStructCombineCom); 
放 (FAILED(hny ) 
printf(" Struct CombineCom failed, \n" )， 
exit(1) 


lstructutils * pStructUtils = NULL; 

HRESULT hr1; 

hrl = CoCreatelnstance(CLSID_structutis,NULL， 
CLSCTX_ALL,NID_istructutils, (void ** )&pStructUtils); 

并 (FAILED(hr1) ) 

{ 


printf(" Struct Utils failed. \n )， 
exit(1) 和 





:1MWStructPtr pStruct1y 
:1MWStructPtr pStruct23 





VARIANT varNamel,varName2 ,varStruct1 ,varStruct2,varStructOut; 
Variantinit(&varName1): 

VariantinitC&varName2); 

Variantlnit(&varStruct1)# 

Variantlnit(&varStruct2) 4 

Variantlnit(&varStructOut 3 
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varName1. vt= VT_BSTR; 
varName2.vt= VT_BSTR; 
varName1.bstrVal = SysAllocString(L" struct1"); 


varName2. bstrVal = SysAllocString(L" struct2" ) 





VARIANT values[2]， 


// 初 始 化 VARIANT 变量 
for (int i=0 i<25 i++) 
{ 





Variantinit(&values[ 门 )， 
values[ 站 .vt= VT_R8; 
values[ 门 .dblval= (double) Ci+ D) 


const OLECHAR * FieldNames1[2] = {L"color ," shape" ) 
const OLECHAR * FieldNames2[2] = {L" width ,length } 


hr = pStruct1. Createlnstance(_uuidof(MWComUtil: :MWStrucD) 
hr = pStruct2. Createlnstance(_uuidof(MWComUtil, :MWStruct))# 


printf("ALL OVERNn )# 
CreateStruct(pStruct1,2 ,FieldNames1,values) 
CreateStruct(pStruct2,2,FieldNames2 ,values); 


pStruct1 - 二 QueryInterface(NID_IDispatch, (void ** )&varStruct1.pdispVal)， 
pStruct2 - 二 Querylnterface(ND_IDispatch, (void ** )&varStruct2. pdispVal)， 


varStructl.vt= VT_DISPATCH; 
varStruct2. vt= VT_DISPATCH 
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pStructCombineCom -- 二 structcombine(1,&varStructOut,varStructl ,varStruct2,varNamel,varName2)+ 


pStructUtiks 一 二 displaystruct(varStructOut) 5 


printf("ALL OVER\m ); 
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VariantClear(&varStructOut); 


pStruct1 =NULL; 
pstuc2= NULL 
pStructutils= NUUL 


V// 硬 放 COM 
CoUninitialize(); 
return nrety 

】} 


6.6.4 实例 4 MWComplex 操作 实例 


复 型 数值 阵列 在 Matlab 程序 设计 中 是 一 种 使 用 非常 频繁 的 数据 类 型 , Matlab 提供 的 
MWComplex 组 件 可 以 使 开发 人 员 在 调用 Matlab Dotnet Builder 生成 的 组 件 的 程序 中 操作 复 
型 数值 阵列 的 数据 。 在 下 面 的 实例 中 ,构造 了 两 个 输入 复 型 数值 阵列 ,通过 调用 Matlab Dot- 
net Builder 生成 的 组 件 计算 其 和 ,然后 显示 两 个 输入 的 复 型 数值 阵列 和 输出 计算 结果 。 读 者 
熟悉 了 本 实例 的 实现 思路 ,任何 其 他 关于 复 型 数值 阵列 的 操作 都 是 与 其 类 似 的 。 

本 实例 的 实现 步骤 与 实例 1 相同 ,构造 Matlab COM 组 件 M 文件 包括 addcomplexarray. 
m 和 displayarray. m, 实 现 COM 组 件 调用 的 代码 文件 为 arraycomplex. cpp。 本 实例 的 程序 代 
码 如 下 所 示 。 


function [四 = addcomplexarray(x1vx2) 
%function [y] = addcomplexarray(x1,x2) 
y=xl+x2 


function [] = displayarray(x) 
% function [] = displayarray(x) 
dispGx) 


Vs arraycomplex. cpp 文件 内 容 */ 

并 include "stdafx.h 

井 include 一 afxdisp.h> 

间 include "stdio.h' 

##include "mwcomutil-h 

井 import "D:NMATLABR2007aNbin\win32Nmwcomutil. dl”raw_interfaces_oniy 
井 include "arraypasscom_idl.h 

井 include "COMDEF.H 
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int main(int argcvchar w argv[]》 


{ 


/1/ 初始 化 COM 
f((FAILED(ColnitializeC(NULL)))) 
人 { 
printf(" Colnitialize failed.\n' ); 
exitCD 





MWComuUtil; :IMWComplexPtr pComplexin1; 

MWComUtil; :IMWComplexPtr PComplexln2; 

MWComUtil: :IMWStructPtr pStruct; 

HRESULT hr,hrT,hr2; 

hr1 = PComplexin1. Createlnstance(__uuidof(MWComUtil: :MWComplex)); 
hr2 = pComplexln2. Createlnstance(_uuidof(MWComUtil: :MWComplex)); 








人 (FAILED(hr1) | 1FAILED(hr27)) 
{ 
Printf(" 输 入 复数 型 数组 创建 失败 1 \n ); 
return FALSE; 
上 
VARIANT varReal[2] ,varimag[2]; 
VARIANT varOutComplexs 
VARIANT varComplexinlyvarComplexin2， 
Variantinit(&varOutComplex); 
Variantlnit(&varComplexin1)# 
Variantinit(&varComplexin1D)， 
,jj=0; 
ONi<25i++) 





for(i= 
人 
VariantinitC&varReal[ 门 )， 
varReal[i 门 .vt= VT_R81VT_ARRAY; 
Variantinit(&varlmag[ 门 )* 
varlmag[ 门 .vt= VT_R81VT_ARRAY: 


SAFEARRAY x pa[4]; 
SAFEARRAYBOUND bound= {4,0j， 
double * data= NULL; 
for(i=O:i<45i++) 
{ 
pa[ 门 = SafeArrayCreate(VT_R8,1v&bound); 
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SafeArrayAccessData(pa[ 门 ,(void ** )&data); 
for(j=0;j 一 45i++ ) 
data[ 门 =j+ 
】} 
SafeArrayUnaccessData(pa[ 门 ); 


varReal[O].parray= pa[0]; 
varReal[1] .parray= pa[2]， 
varlmag[0].parray= pa[3]; 
varlmag[ 们 .parray=pa[4]， 
arraypasscom * pArrayPasscom= NULL 
hr = CoCreatelnstance( CQLSID_arraypasscom,NUUL,CLSCTX_ALL,NID_laraypasscom, (void wx )&pArrayPasscom) 
iCFAILED(hrDy ) 
{ 
printf(" larraypasscom 创建 失败 \n" )3 
retum 0 


pComplexln1 - >put_Real(varReal[O]) 
pComplexin1- 二 put_imag(varlmag[0])， 


PComplexin2 -~ 二 put_Real(varRealL0]); 
PComplexin2 -~ 之 put_imag(varimag[0])， 


varComplexinl.vt= VT_DISPATCH， 
varComplexln2.vt= VT_DISPATCH; 
pComplexInl - 二 Querylnterface(NID_IDispatch, (void ** )&varComplexln1.pdispVal)， 
pComplexln2 - 二 QueryInterface(NID_IDispatch, (void ww )&varComplexin2.pdispVaD 


pArrayPasscom - 二 addcomplexarray(1,&varOutComplexyvarComplexinl vvarComplexin2)， 


printf(" 输 入 复数 数组 Nm ); 

pArrayPasscom - 二 displayarray(varComplexin1)， 
printf(" 输入 复数 数组 2\n )， 

pArraypasscom 一 二 displayarray(varComplexln2)， 
printf(" 相 加 后 的 输出 复数 数组 Nm )， 
pArraypasscom- >displayarray(varOutComplex); 
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Variantinit(&varOutComplex) ; 
Variantinit(&varComplexinl) 
Variantinit(&varComplexin1)， 
for(i=O:i<25i++) 
{ 
Variantinit(&varReal[ 门 )， 
Variantinit(&varimag[ 门 )， 


SafeArrayDestroy(paLO])， 
SafeArrayDestroy(pa[1]); 
SafeArrayDestroy(pa[2]) 
SafeArrayDestroy(pa[3]); 


pComplexln1 - >Release()， 
pComplexin1 = NULL; 
pComplexin2 - Release(); 
pComplexin2= NULL; 


pa[o0]= NUUL 
pa[ 要 =NULL; 
pa[2]= NULL; 
pa[3]=NULL 


// 释 放 COM 组 件 
CoUninitiatize()， 
return 0 


6.6.5 实例 SMWSParse 操作 实例 


当 数 值 阵列 的 非 零 元 素 个 数 所 占 的 比例 很 小 时 ,采用 稀疏 抵 阵 阵列 可 以 大 大 节省 存储 空 
间 ( 关 于 稀 朴 矩阵 请 参考 3. 9 节 关 于 稀疏 矩阵 的 说 明 )。Matlab 同样 也 提供 了 MWSparse 组 
件 以 方便 Matlab Dotnet Builder 组 件 调用 程序 操作 稀疏 矩阵 。 本 实例 旨 在 向 读者 演示 采用 
MWSparse 操作 稀疏 矩阵 阵列 的 方法 。 在 下 面 的 实现 过 程 中 ,首先 创建 一 个 数值 阵列 ,然后 调 
用 sparsematrix 方法 将 其 转换 为 稀 朴 矩阵 阵列 ,再 采用 MWSparse 得 到 稀 朴 矩阵 的 各 属性 ， 
并 将 其 结果 输出 到 屏幕 上 。 用 于 创建 COM 组 件 的 change2sparse. m 和 displaymatrix, m 党 
件 以 及 调用 COM 组 件 的 SparseMatrixVec'. cpp 文件 内 容 如 下 所 示 。 


function [y] = change2sparse(x) 


% function [y] = change2sparse(x) 
[ij,xl]=find(ooy 


[mm]=sizeCoy 
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Y= sparse(i,j,xiymyn); 


function 上 = displaymatrix(x) 
%function [] = displaymatrix(x) 
disp(oO 


V/*# SparseMatrixVc. cpp 文件 内 容 * / 

井 include "stdafx.h 

井 include <afxdisp.h> 

提 include "stdio.h" 

厅 include "mwcomutil.h” 

厅 import "D:NMATLABR2007aNbin\win32\mwcomutil, dl” raw_interfaces_only 
非 include "sparsematrix_jdl.h” 

间 include "COMDEF.H” 


int main(int argc,charw argv[]) 
{ 
// 初始 化 COM 
放 ((FAILED(ColnitializeCNUUL)))) 
人 
printf(" Colnitialize failed.\n" )， 
exit(1)， 
)} 
MWComutil :IMWSparsePtr pSparse= NUUL 
HRESULT hr 


// 构 造 一 个 非 零 元 素 较 少 的 称 玉 蛤 阵 
SAFEARRAY * pa= NULLT 
SAFEARRAYBOUND bound[2]， 
bound[0].cElements= 10; 
bound[o].lbound= 0; 
bound[1.cElements= 10} 
bound[T.Ibound= 0; 

pa= SafeArrayCreate(VT_R8,2,bound)* 
double * datai; 


hr = SafeArrayAccessData(pa, (void ** )&data); 
if(FAILED(hry ) 
{ 

returm 0 
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int i=0; 


for(i=Oii<95i=i+2) 
{ 

data[iv 10+ 站 =i+ 1; 
上 
SafeArrayUnaccessData(pa) 


lsparsematrixclass * pSparseMatrix= NUUL; 
= 


CoCreatelnstance(CLSID_sparsematrixdiass,NUUL,QLSCTX_ALLND_lsparsematrixclass, (void ** )&pSParseMatrix) } 


if(FAILED(hr) ) 
{ 


retumn 0# 


VARIANT varlnputvarSparse,RowlndexCollndexs 
VariantlInitC&varinput)， 

varlnput. vt= VT_R8|VT_ARRAY; 

varlnput. parray= pai 

Variantlnit(&varSparse); 

Variantlnit(&Rowindex) 

Variantinit(&Collindex); 

printf(" Dislay The Original Matrix:\n )， 
pSparseMatrix- 过 displaymatrix(varlnput) 
pSparseMatrix 一 sparsematrix( 1,&varSparsevvarinput); 
printf(" Display The Changed SparseMatrixs\n" )， 
psparseMatrix- 二 displaymatrix(varSparse) 


pSparse = varSparse.pdispVal; 
psparse 一 > geLRowindex(&Colindex); 
pSparse- >getLColumnindex(&Rowindex); 


VariantClear(&varSparse) ; 
VariantCIlear(&varinput)} 


printf(" The nozero element indexs\n ); 
printf(rrow index:  “); 

psparseMatrix- 二 displaymatrix(Rowindex) 
) 





printf( "column index 
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pSparseMatrix- 二 displaymatrix(Collindex); 


pSparseMatrix 一 >>Release() 
pSparseMatrix= NUUL 





// 释 放 COM 组 件 
CoUninitialize() 
return 0; 
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Matcom 是 Mathtools 开发 的 世界 上 最 早 的 Matlab 到 C 十 十 的 编译 器 。 后 来 ,由 于 
Mathtools 被 Matlab 公司 收购 ,Matcom 对 Matlab 5. 3 以 后 的 版 本 就 没有 推出 新 的 版 本 ,其 
中 M 文件 的 编译 及 与 C/C 十 十 语言 的 接口 都 已 经 在 Matlab 6. 0 以 后 的 版 本 中 实现 。 但 是 ,对 
于 采用 C 十 十 的 工程 和 研究 人 员 来 说 , Matcom 的 C 十 十 矩阵 库 CMatrix Lib) 依 然 有 一 定 的 利 
用 价值 。Matcom 的 C 十 十 矩阵 库 提供 双 精 度 级 的 计算 精度 ,其 矩阵 类 型 可 以 为 复数 、 实 数 、 稀 
朴 矩 阵 及 mn 维 矩 阵 。Matcom C 十 十 矩阵 库 中 包含 了 约 六 百 个 经 过 严格 测试 的 函数 ,这 些 函 数 
涉及 线性 代数 .多项式 数 学 .信号 处 理 和 文件 /O 等 方面 。 为 了 方便 使 用 C 十 十 的 开发 人 员 ， 
Matcom C 十 十 矩阵 库 还 重 载 了 常用 的 运算 符 , 例 如 矩阵 的 算 符 以 及 和 矩阵 的 索引 
操作 符 。 另 外 ,Matcom 也 提供 了 很 多 类 似 Matlab 本 数 的 图 形 库 函 数 ,为 用 户 开发 曲线 显示 、 
图 像 显示 及 其 他 数据 显示 提供 了 一 个 更 好 的 选择 























7.1 安装 Matcom 


闻 的 安装 过 程 类 似 , 首 先 找到 Matcom 的 安装 文件 ， 
界面 


Matcom 的 安装 与 普通 Window 
双击 后 出 现 如 图 7- 1 所 示 的 安装 启 









图 7-1 Matcom 安装 界面 一 一 启动 


按照 安装 程序 的 提示 ,逐步 完成 Matcom 的 中 间 安 装 过 程 。 在 安装 快 结束 时 , Mattom 安 
装 程 序 会 自动 搜索 本 机 上 的 C/C 十 十 编译 器 ,如 Visual C 十 十 等 。 本 书 所 有 的 C/C 十 十 编译 器 
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都 是 Visual C 十 十 6.0。Matcom 搜索 到 Visual C 十 十 6. 0 的 编译 器 后 ,出现 如 图 7-2 所 示 的 
提示 ,确认 即 可 。 
IEPCERPERTETERPREEECo 村 2 入 








图 7-2 Matcom 安装 界面 一 一 设置 C/C 十 十 编译 器 
接着 Matcom 询问 本 机 是 否 存在 Matlab 安装 版 本 ,并 弹出 如 图 7 - 3 所 示 的 提示 对 话 框 ， 

















图 7-3 关联 Matlab 
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如 果 本 机 上 安装 的 是 Matlab 5. 3 版 本 ,可 以 选择 * 是 (Y)" 确 认 , 如 果 是 其 他 版 本 的 Matlab, 选 
“和 理 (N)"。 因 为 Matcom 不 支持 Matlab 6. 1 及 其 以 上 的 版 本 。 但 无 论 怎么 选 ,都 不 会 影响 使 
用 Matcom C 十 十 矩阵 库 。 

Matcom 成 功 安装 完 以 后 ,在 (Matcom 根 目录 Nib\ 目 录 下 可 以 找到 使 用 Matcom C 十 十 矩 
阵 库 的 头 文件 matlib. h 和 v4501v.lib 文件 ,在 Windows 操作 系统 的 system32 目录 下 ,可 以 找 
到 使 用 Matcom C 十 十 矩阵 库 的 动态 链接 库 文件 v4501v. dll。 


7.2 在 VC 十 十 中 使 用 Matcom C 十 十 矩阵 库 


下 面 通过 一 个 例子 来 说 明 Matcom C 十 十 矩阵 库 在 Visual C 十 十 6. 0 中 的 使 用 过 程 ,对 于 
其 他 的 C 十 十 编译 器 如 Borland C 十 十 ,其 使 用 过 程 类 似 。 本 实例 的 主要 步骤 如 下 : 
@ 建立 一 个 新 的 工程 ,设置 Visual C 十 十 工程 。 
@ 在 需要 使 用 Matcom C 十 十 矩阵 库 的 地 方 须 加 #include "matlib. h" 说 明 。 
@ 初始 化 Matcom C 十 十 矩阵 库 。 
@ 创建 一 个 矩阵 。 
@ 给 矩阵 元 素 赋 值 。 
@ 调用 矩阵 的 函数 。 
@ 得 到 和 矩阵 的 元 素 。 
具体 的 操作 步骤 如 下 所 述 。 
@ 打开 Visual C 十 十 6. 0, 建 立 一 个 新 的 Win32 Console 工程 ,如 图 7-4 所 示 。 设 置 
Visual C 十 十 工程 ,选择 Project| Setting 菜单 项 ,在 弹出 的 Project Setting 对 话 框 的 Link 选项 





Projectm 
全 一 一 


加 custom Appwizard 
Database Project 
埃 Devsmwdie Addin wizard 二 

菩 Extended Stored Proc Wizard Jo3awATLAB6P5PTWORKABOOK 


Create new workspace 
add io current workspace 


NI Measurement Studio AppWizard 
Unilty Project 


加 win3z Dynamictink Ubrary 
国 win3az static LUbrary 








图 7-4 采用 Visual C 十 十 6.0 建立 新 工程 
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卡 中 ,在 Category 中 的 Input 选项 下 ,加 入 和 矩阵 库 需 要 使 用 的 v4501v. lib, 并 且 根据 Matcom 
安装 目录 设置 路 径 c:\matcom45\lib。 如 图 7- 5 所 示 。 打 开 C/C 十 十 选项 卡 ,根据 Matcom 
安装 目录 为 头 文件 添加 目录 c:\matcom45\lib。 如 图 7- 6 所 示 。 


Project Settingx 


Settings For |Win32 Debug 司 


natcemvc 


| Categorx |mput 


ObjecWbrary medul 
p oleaut32.ib uuidJlib odbc32.lib odbccp32.ib 


jgnore librarie: 厂 lgnere 到 detauk lbrarie 


Force symbol references: 





Additional library path: 





32.iib winspoollib 
comdlg32.ib advapi32 bshell32.Nb ole32.ib 
|oleaut32.lib uuidJlib odbc32.lib odbccp32.ib 














图 7-5 设置 Visual C 十 十 6.0 工程 对 话 框 (Link 选项 卡 ) 
Projiect Settings 
Setings For [Win32 Debug “| | General | Debug cicry | Unk | Resources | Bl 
[TY 


Category' [Preprocessor = Beset 


Preprocessor definitions: 





Ignere standard include paths 


Project Option: 
Jnologo /MLd 7W3IGm jGX 局 10dN"C3matcom45Vib” 专 
MD "WIN32"1D ”DEBUG"ID ”CONSOLE"/D ”MBCS" 
VFp"Debugnestmatcomvc.pch' YYu'stdatxh" 


[| 


图 7-6 设置 Visual C 十 十 6.0 工程 对 话 框 (C/C 十 十 选项 卡 ) 














第 7 章 。Matcom 与 C/C 十 十 261 











@ 加 入 头 文件 matlib. h, 运 行程 序 , 如 果 出 现 错误 的 话 , 请 仔细 查看 上 述 Visual C 十 十 工 
程 设 置 是 否 正确 。 

图 初始 化 Matcom C++ 十 矩阵 库 。Matcom C 十 十 矩阵 库 的 初始 化 十 分 简单 ,调用 下 述 语 
句 即 可 ， 


initM(Matcom_VERSION) 


Matcom C 十 十 矩阵 库 的 初始 化 和 释放 是 成 对 进行 的 ,在 需要 释放 Matcom C 十 十 矩阵 库 
时 ,调用 函数 exitM() 即 可 。 

Matcom C 十 十 矩阵 库 初 始 化 需要 一 定 的 时 间 , 为 了 加 快 程序 的 执行 速度 ,应 尽量 减少 
Matcom C 十 十 矩阵 库 初 始 化 的 次 数 。 所 以 开发 人 员 应 仔细 考虑 Matcom C 十 十 矩阵 库 生 存 周 
期 的 长 度 , 在 Matcom C++ 十 矩阵 库 生 存 周 期 的 开始 初始 化 C 十 十 库 , 在 生存 周期 结束 的 时 候 ， 
释放 C 十 十 库 。 这 样 做 虽然 会 占用 一 定 的 内 存 , 但 是 会 提高 程序 运行 的 速度 。 

图 Matcom C 十 十 矩阵 库 矩 阵 的 创建 。Matcom C 十 十 矩阵 库 采 用 面向 对 象 的 设计 风格 ， 
矩阵 数据 和 操作 都 被 封装 在 类 Mm 中 。 当 需要 创建 矩阵 时 ,只 要 声明 一 个 Mm 对 象 实例 即 
可 。 下 面 是 创建 矩阵 ab 和 x 的 语句 。 

Mm ai 

Mm b; 

Mm xf 


@@ 初始 化 矩阵 元 素 和 对 和 矩阵 元 素 赋值 。 在 步骤 图 中 创建 的 矩阵 ab 和 x 是 空 的 ,不 包含 
任何 矩阵 元 素 。 和 矩阵 在 使 用 以 前 必须 经 过 初始 化 ,以 确定 矩阵 的 维 数 .各 维 元 素 个 数 及 矩阵 元 
素 的 初始 值 。 初 始 化 矩阵 的 方式 与 Matlab 的 语句 类 似 , 如 ， 


a=rand(3,3)# 

b= zeros(3,3) 1 

b.r(1,1)=1) 

b.r(2,2)=3 

b.r(3,3)=54 

display(a)# 

display(b)， 

值得 注意 的 是 ,对 于 变量 a 的 初始 化 并 没有 显 式 地 进行 ,而 是 等 号 运算 符 根据 函数 rand 
的 返回 值 自动 对 变量 a 进行 初始 化 。 当 然 , 也 可 以 通过 显 式 的 方式 来 实现 对 变量 的 初始 化 ,对 
变量 b 的 初始 化 就 是 如 此 。 对 和 矩阵 元 素 的 赋值 是 通过 索引 进行 的 ,其 中 z 表 示 取 矩阵 的 实 部 。 

@@ 调用 Matcom C 十 十 矩阵 库 的 函数 。Matcom C 十 十 矩阵 库 提供 了 一 系列 矩阵 操作 的 函 
数 ,其 调用 方法 与 一 般 的 C/C 十 十 函数 一 样 。 如 下 所 示 , 为 了 求解 矩阵 a 和 b 的 行列 式 的 值 ， 
需要 调用 det 函数 。 另 外 ,对 于 一 般 和 矩阵 的 加 \ 减 ,乘除 运算 ,Matcom C 十 十 矩阵 库 重 载 了 所 
有 这 些 矩 阵 运 算 的 操作 符 , 以 方便 使 用 。 

x=a+bs 

printf("a+b= :\n ) 


display(x) 
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printf("det(a) = :Nm )， 
display(det(a))， 
printf("det(b) = :\n )5 
display(det(b))， 


人 @@ 得 到 矩阵 的 元 素 。 在 步骤 @ 中 使 用 了 *. r(row,coD) "对 和 抢 阵 元 素 进行 赋值 ,如 果 要 获 
取 矩 阵 的 元 素 ,同样 可 以 使 用 *. r(row,cobD)”。 例 如 ,可 以 通过 下 面 的 程序 片段 对 一 个 矩阵 x 
的 实 部 进行 遍历 。 需 要 注意 的 是 ,Matcom C 二 十 矩阵 中 ,矩阵 的 索引 是 从 1 开始 计数 的 。 


和 珑 阵 痪 历 :\n ) 
for (inti= Ti<=xrowsO5i++) 


{ 


Printf(” 





for (int j=15j 一 =x.cols();j++) 
{ 

printf("%6.2f ",x.r(i,j)); 
} 
printf("\n" ) 

} 

上 述 是 在 Visual C 十 十 工程 中 使 用 Matcom C 十 十 矩阵 库 的 步 又 ,为 了 方便 数据 的 输出 和 
显示 ,采用 Win32 Console 的 形式 。 对 于 其 他 情况 的 开发 , 如 MFC、ActiveX 等 , Matcom 
C++ 十 矩阵 库 的 使 用 方法 完全 相同 。 将 上 述 语 句 组 合 在 一 起 可 得 如 下 源 代码 ,请 读者 按照 上 
述 步 骤 创 建 一 个 自己 的 实例 ,如 果 编 译 并 正确 输出 ,读者 就 已 经 基本 掌握 了 在 C 十 十 中 调用 
Matcom C 十 十 矩阵 库 的 步骤 。 


提 include "stdafx.h 
划 include "stdio.h” 
井 include "matlib.h 
int main(int argc，char * argv[]) 
{ 
initM(Matcom_VERSION)， 
Mm as 
Mm b; 
Mm xs 
a=rand(3,3); 
b= zeros(3,3)， 
b.rD=T 
b.r(2.2)=38 
b.r(3,3)=54 
printf("a= :\n 
display(a) 
printf("b= :\n")， 
display(b) 
x=a+b; 
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printf("a+b= :\n )3 
displayCx) 
printf("det(a) = :\n" )# 
displayCdet(a)) 
printf(" det(b) 
displayCdet(b)) 

printf("x 和 失 阵 遍历 :\n ); 

for (int i= Tii<=x.rowsO5i++) 


{ 





\n); 


for (intj= 1j<=x.colsG)5j++) 
{ 
printf("%6.2f “,x.rCibj)) 

} 
printfC"\n' 7 

》 

exitM() 

retum 0 

上 


输出 结果 如 下 所 示 。 


=: 

ans (3X 3) = 9 double elements real (72 bytes) = 
0.9501 0.486 。 0.4565 

0.2311 0.8913 0.0185 

0.6068 0.7621 “0.8214 

b=， 

ans (3X3) = 9 double elements real (72 bytes) = 
7 和 

苗 ) 二 汤 

0 0 5 

at+b=: 

ans (3X 3) = 9 double elements real (72 bytes) = 
1.95 0.486 0.4565 

0.2311 3.891 0.0185 

0.6068 0.7621 5.821 

det(a) = ， 

ans (1X 1) = 1 double elements real (8 bytes) = 
0.4289 

detb= 

ans (1X 1) = 1 double elements real (8 bytes) = 
15 

x 丛 阵 痪 历 : 

1.95 0.49 0.46 
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0.23 3.89 0.02 
0.61 0.76 5.82 


7.3 使 用 Matcom C 十 十 矩阵 库 的 矩阵 类 Mm 


7.3.1 创建 数值 矩阵 


在 Matcom C 十 十 矩阵 库 中 ,矩阵 作为 一 个 类 Mm 被 封装 了 起 来 ,便于 开发 人 员 使 用 。 在 Mm 
声明 对 象 实例 的 时 候 ,构造 函数 会 自动 对 生成 的 矩阵 对 象 进行 必要 的 初始 化 。 

矩阵 对 象 的 声明 和 普通 的 C 十 十 类 对 象 的 声明 方式 相同 : 

Mm ay // 声 明 对 象 a 为 Mm 答 阵 对 象 

Mm avb,cs // 同 时 声明 多 个 对 象 

默认 的 矩阵 构造 函数 只 是 将 矩阵 对 象 初始 化 为 一 个 空 的 矩阵 ,例如 上 例 中 的 对 象 a 不 含 
有 任何 矩阵 元 素 。 如 果 要 将 矩阵 初始 化 为 mm 行 ,n 列 的 矩阵 ,可 采用 ， 

Mm ai 

a= zeros(m,n)i 
此 时 ,a 被 初始 化 为 m 行 ,n 列 的 零 值 矩阵 。 如 果 要 初始 化 三 维 矩阵 mXxnXp, 可 以 采用 类 似 
的 方法 ,如 : 


Mm ai 


a= zeros(mvnyp); 
如 果 要 创建 mxn 的 复数 矩阵 ,其 初始 化 函数 则 要 采用 czeros, 如 ， 


Mm xi 

x= czeros(iscymvyn) // 如 果 变 量 isc 的 值 是 true 的 话 ,矩阵 将 被 初始 化 为 复数 和 矩 阵 

Mm 类 重 载 了 赋值 操作 符 , 当 某 个 Mm 对 象 被 赋值 以 后 , 它 会 被 自动 初始 化 并 重新 分 配 
和 矩阵 的 维 数 和 元 素 的 值 , 因 此 大 部 分 情况 下 一 个 矩阵 对 象 声 明 以 后 不 需要 采用 zeros 或 者 cze- 
ros 进行 初始 化 。 如， 

Mm ai 

a=rand(4,4)5 // 直 接 使 用 并 自动 初始 化 为 4X4 的 随机 数 矩 阵 

当然 ,对 于 单个 数值 的 情况 ,可 以 看 做 是 1X 1 的 一 个 Mm 矩阵 ,因而 对 Mm 和 撼 阵 也 可 以 
直接 用 某 个 数值 进行 赋值 。 如 : 





Mm x1,x2,x33 

x1=5s // 整 数 直 接 芍 值 , 自 动 转换 为 双 精 度 型 

x2=3.0; // 译 点 型 直接 赋值 ,自动 转换 为 双 精度 型 

3 二 3 十 4* 和 /复数 直接 赋值 , 实 部 和 虚 部 直接 转换 为 双 精 度 型 


Mm 对 象 可 以 通过 dMm 宏 在 构造 的 时 候 命名 ,这 样 以 来 当 用 display 显示 这 个 变量 的 时 
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候 ,就 会 将 变量 的 名 字 放 在 变量 说 明 的 最 前 面 。 例 如 ， 
dMmGnoiseMatrix 
noiseMatrix= rands(3,3) 4 
display(noiseMatrbo 


则 输出 为 (注意 加 粗 的 部 分 ,这 在 以 前 显示 变量 的 时 候 是 没有 的 )， 


noiseMatrix (3 X 3) = 9 double elements real (72 bytes) = 
0.9501 0.486 ”0.4565 
0.2311 0.8913 ”0.0185 
0.6068 0.7621 0.8214 


变量 的 名 称 可 以 通过 . getname() 获 得 ,由 于 dMm 是 一 个 宏 ,如 果 采 用 这 种 方式 定义 变量 的 话 
只 能 采用 单独 定义 的 方式 ,如 dMm(a) .dMm(b) 和 dMm(ce) 。 
7.3.2 创建 字符 矩阵 

采用 函数 TM 可 以 创建 一 个 字符 矩阵 ,如 下 所 示 ， 


Mm cx 
cx=TMC Hello Worldt \n7 


字符 抢 阵 在 Matcom C++ 十 矩阵 库 中 是 以 双 精 度 型 保存 的 ,所 以 字符 和 矩阵 和 双 精 度 实数 矩 


阵 可 以 相互 转换 , 即 矩 阵 到 底 是 字符 型 的 还 是 双 精度 实 型 的 可 以 动态 切换 。Matcom C 十 十 矩 
阵 库 用 setstr 来 进行 切换 。 如 : 


Mm ay 

a= colon(65,69); // 相 当 于 Matlab 的 65:69, 产 生 一 个 向 量 [65 66 67 68 69]; 
asetstr( TD) 

display(a) // 结 果 是 矩阵 中 ASCII 码 的 字符 输出 “ABCDE” 


其 中 ,colon 函数 相当 于 Matlab 的 “: "操作 符 ，colon(i,j,k) 相 当 于 i:j:k; colon(i,j) 相 当 于 it 
j。 以 ijsk 为 例 , 其 含义 是 产生 一 个 向 量 , 从 i 开始 ,到 k 结束 , 步 长 为 j, 如 果 采 用 C 语言 来 表 
示 , 则 与 下 面 的 语句 相等 : 


int my 


forrm=im<=kim=m+j 人 5 
将 Matcom C 十 十 矩阵 库 里 的 字符 数组 转换 为 char * 类 型 的 字符 串 ,采用 下 面 的 函数 : 
void Mstr(const Mm& x，char * str，int maxlen)， 


其 中 ,char * str 表示 目的 字符 串 ,x 表示 字符 类 型 的 矩阵 ,maxlen 表示 x 中 最 大 的 字符 数目 ， 
注意 字符 串 最 后 的 ^\0" 也 算 一 个 字符 。 


7.3.3 利用 下 标 访问 矩阵 的 元 素 
与 Matlab 中 的 矩阵 元 素 访问 方式 类 似 ,可 以 采用 下 面 几 种 形式 的 下 标 来 访问 ， 
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Mn ai 

a= magic(3); /816:3571492;]; 
arO# 1/8 

arM(2,2)4 /1/5 

ar(8); /1/7 


7.3.4 获取 和 矩阵 数据 的 指针 


通过 函数 . addr() 和 . addi() 分 别 获得 矩阵 的 实 部 和 虚 部 的 地 址 ,其 返回 值 都 是 double* 
型 的 指针 。 需 要 注意 的 是 ,Matcom C 十 十 矩阵 库 与 C/C 十 十 数组 的 组 织 方式 不 同 , 在 Matcom 
C 十 十 矩阵 库 中 ,数组 的 组 织 方式 按 “ 列 优先 ”的 方式 组 织 ,C/C 十 十 中 按照 “ 行 优先 ”的 方式 组 
织 ,所 以 复制 数据 时 需要 注意 。 本 文 后 面 的 实例 中 给 出 了 一 种 用 reshape 函数 进行 “ 行 优 先 
和 *“ 列 ”优先 相互 转换 的 办 法 。 另 外 ,addr 也 可 以 通过 下 标 来 得 到 Matcom C 十 十 矩阵 库 的 矩 
阵 中 某 个 元 素 的 地 址 ,地 址 类 型 为 double 型。 


例如 ， 

Mm xi 

double ab'ci 

x= magic(3); /M/x=[816;357:492] 
= wx.addr()i // a=8 

b= * x,.addr(2) /Ab=1 

C= *#X,addr(2,3) 人 ice7 


wx.addr(3,1) = 一 9994 
//x=[816:357:-99992] 
wx.addr()= 一 wx.addr()， 
AM/x=[-81643575-99992] 


另外 ,通过 Matcom C 十 十 矩阵 库 的 矩阵 指针 可 以 用 memcpy 函数 复制 矩阵 中 的 数据 。 
例如 ， 


double * 

x_data= (double * )malloc(512 * sizeof(double)); 
Mm xi 

x=rand(512,1); 

mermcpy(x_data,x.addr(),512 * sizeof(double)); 


注意 : 对 于 稀疏 矩阵 ,如 果 和 要 采用 索引 的 方式 访问 的 话 , 则 需要 采用 full 函数 进行 转换 。 
例如 ， 


tmatcomvC. GpP 文 任 闪 二 着 莹 生 关 六 关 半 半 半 和 二 于 人 
井 include "stdafx.h 

间 include "stdio.h 

提 include "matlib.h" 

int main(int argc，char * argv[]) 

{ 
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initMCMATCOM_VERSION)， 
Mm xi; 

Mm sparseXs 

x= zeros(4,4) 3 

xG9) = 1 

x(7) = 12; 

x(15) = 3 

display(x)， 

sparseX= sparse(x) 
display(sparseX); 
display(full(sparseX(9)))， // 索 引 称 居 矩 阵 
exitM(C) 

return 0 


7.3.5 Mm 和 矩阵 对 象 的 初始 化 


Mm 矩阵 对 象 可 以 通过 构造 函数 的 初始 化 ,也 可 以 通过 其 他 具有 返回 值 的 函数 如 函数 
rand 来 初始 化 ,通过 构造 函数 进行 初始 化 常用 的 实现 方式 有 : 

@ 采用 double 型 向 量 直 接 初 始 化 。 

四 采用 double 型 常数 进行 初始 化 。 

轩 采用 在 C/C 二 十 中 构造 好 的 数据 块 进行 初始 化 。 


上 述 3 种 方式 的 程序 实现 如 下 所 示 : 

double data[6]= (5,7.9,5.7,5.0,2.4, 一 1.6); 

Mm xi 

ML_VECTOR(xvdata) V/ 形 式 四 ,采用 double 型 向 量 直 接 初始 化 
Mm 

y= (BR(C2) ,1,0,semi,3* i7,pivsemi,0.6,8,0.1); // 形 式 回 ,采用 常量 

Mm zf 


Zz= zeros(1,6) 
merncpy(z. addr() ,data,6 * sizeof(double)); /1 形式 回 ,直接 复制 数据 


注意 :在 形式 @ 中 ,第 一 个 变量 的 初始 化 必须 用 BR 函数 开头 。 其 中 semi 表示 分 号 ()， 
其 含义 是 一 行 结束 , 另 一 行 重新 开始 。 在 形式 @ 中 ,需要 注意 Matcom Mm 和 挫 阵 与 C/C 二 十 数组 
在 内 存 中 的 存储 顺序 不 一 致 。 在 Matcom Mm 和 矩阵 中 ,数据 按 列 的 方式 进行 存储 ;在 C/C+ 十 中 ， 
数据 按照 行 的 方式 进行 存储 。 因 而 需要 采用 reshape 函数 达到 改变 Mm 抢 阵 数据 存储 顺序 的 
目的 。 


7.3.6 Mm 和 矩阵 类 的 几 个 常用 函数 


Mm 和 矩阵 类 的 所 有 函数 都 是 以 . func(para) 的 形式 调用 的 ,其 中 常用 的 函数 如 下 : 
@ size() 返回 矩阵 的 大 小 ,返回 值 为 Mm 类 型 。 
@ size(dim) 返回 矩阵 某 维 的 最 大 元 素数 。 
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{ 


rows() 返回 矩阵 的 行 数 。 

eols() 返回 矩阵 的 列 数 。 

isstr() 判断 矩阵 是 否 是 字符 矩阵 。 
setstr(is) ”设置 矩阵 的 字符 矩阵 特性 。 
isc() 判断 矩阵 是 否 是 复数 矩阵 。 


getndims() 判断 矩阵 的 维 数 ,返回 为 Mm。 
getdims() 判断 矩阵 的 各 维 大 小 ,返回 为 int* 。 
下 面 实例 是 对 上 述 几 个 常用 函数 的 具体 应 用 。 


提 include "stdafx.hr 

间 include "stdio.h 

间 include "matib.h" 

int main(int argc，char * argv[]) 


initMC(MATCOM_VERSION)， 

Mn xi 

int sizexyrowsycolsvndims, * dims= NULL; 
x=rand(4,6)5 

sizex= x.size()， 

printf("x 短 阵 的 元 素数 为 :% dhNn ,sizex)f 
Sizex= x.size(2)4 


// 返 回 炬 阵 某 维 的 最 大 元 素数 


printf("x 和 阵 的 第 2 维 的 大 小 为 :%dNn” ,sizex)# 


rows=x.rows(O)i 
printf(" 答 阵 的 行 数 为 ;%dNn” ,rows)# 
cols=x.colsO， 
printf(" 答 阵 的 列 数 为 :%dNn ,cols); 
ix,isstr()) 
{ 

printf("x 是 字符 矩阵 ! \m ); 


else 


printf("x 不 是 字符 炬 阵 ! \m ) 
) 
放 x.isc()) 
{ 

printf("x 是 复数 矩阵 ! Nm )5 


else 
printf("x 不 是 复数 给 了 ! Nm )5 


} 
ndims= x.getndims()， 


// 返回 炬 阵 的 行 数 


// 返回 矩阵 的 列 数 


// 判断 矩阵 是 否 是 字符 答 阵 


// 判断 答 阵 是 否 是 复数 开 阵 


// 判断 短 阵 的 维 数 ,返回 为 Mm 
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printf(" 佐 阵 的 维 数 为 :%d\n' ,ndims); 
dims=x.getdims()， // 判断 红 阵 的 各 维 大 小 ,返回 为 int * 
forCint i=O;i<ndims;i++ ) 
{ 
printf(" 第 %2d 维 的 大 小 为 :%dn ,i+ 1,dims[ 门 ); 
上 
exitMO) 
retum 0 


输出 结果 如 下 所 示 。 


x 炬 阵 的 元 素数 为 :24 

x 炬 阵 的 第 2 维 的 大 小 为 :6 
代 阵 的 行 数 为 :4 

伦 阵 的 列 数 为 :6 

x 不 是 字符 红 阵 ! 

x 不 是 复数 矩阵 ! 

和 矩 阵 的 维 数 为 :2 

第 1 维 的 大 小 为 :4 

第 2 维 的 大 小 为 :6 


7.3.7 Matcom C 十 十 矩阵 库 常 量 


Matcom C 十 十 矩阵 库 中 定义 了 一 些 常量 ,其 中 常用 的 常量 如 下 : 

ij 复数 使 用 。 

Pi 圆周 率 的 值 。 

Inf ”表示 无 穷 大 ,如 果 出 现 x/0 的 情况 (x! 一 0) ,结果 为 Inf。 

NaN Nota-Number,0/0 的 结果 以 及 其 他 无 意义 的 算术 运算 结果 。 
eps ”最 小 的 数 ,在 Matcom 中 为 2- 。 

@ semi 表示 分 号 , 即 矩阵 的 行 结束 分 隔 符 。 

@ c_p 表示 冒号 操作 符 ,用 于 colon 不 能 用 的 地 方 , 例 如 


Mm ab 
a= ( 眼 (1),4,2,semi'6,3,8); 。 //a=[142;638]; 
b=a(c_p,2)， 1/ 与 Matlab 语句 b=a(:,2) 等 价 ,b 为 第 二 列 所 有 元 素 [4 3]' 


@e 自然 对 数 的 底 2. 718281828459… 。 
@ io 当 Matcom C 二 十 矩阵 库 函数 需要 多 个 输出 时 ,用 于 分 制 输入 参数 和 输出 参数 ， 
例如 : 


Mm xuysyvi 
svd(xyiLovuysyv)s /1/ 其 中 x 为 输入 参数 ,us 和 v 为 输出 参数 


具体 应 用 见 本 章 后 续 关 于 “多 输出 ”函数 使 用 规范 的 内 容 。 
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7.3.8 调用 系统 函数 


在 使 用 Matcom C 十 十 矩阵 库 时 ,最 常 调用 的 两 个 函数 即 初 始 化 和 退出 矩阵 库 的 函数 
initM 和 exitM。 这 两 个 函数 的 调用 方式 如 下 : 

initMCMATCOM_VERSION) ; 

exitM() 1 
其 中 ,initM 函数 的 参数 永远 是 MATCOM_VERSION, 这 个 宏 在 matlib. h 中 定义 ,表明 Mat- 
com C 十 十 矩阵 库 的 版 本 号 。 另 外 ,需要 注意 的 是 initM 函数 可 以 多 次 调用 ,但 是 无 论调 用 了 
多 少 次 initM ,exitM 只 能 调用 一 次 。 下 面 是 其 他 一 些 系统 函数 的 使 用 技巧 。 

1. 如 何 使 Matcom C 十 十 矩阵 库 同 时 有 多 个 参数 输出 ? 

Matcom C 十 十 矩阵 库 在 C 十 十 中 不 支持 返回 多 个 参数 的 函数 调用 ,为 了 使 函数 有 多 个 返 
回 参 数 ,Matcom C 十 十 矩阵 库 采用 i_o 分 隔 符 将 输入 参数 和 输出 参数 分 离 。 如 下 例 所 示 , 假 定 
程序 开发 人 员 要 调用 [v,d]=eig(x) 函 数 , 由 于 eig 函数 同时 返回 两 个 输出 ,所 以 采用 下 面 的 形 
式 调 用 ,其 中 输入 参数 x 和 输出 参数 v,d 通过 分 隔 符 i_o 隔离 ,以 通知 Matcom C 十 十 矩阵 库 
娜 些 参数 是 输入 参数 ,哪些 参数 是 输出 参数 。 例 如， 


Mm xvvdi 

x= wilkinson(7)， 

eig(x,Lovvvd)， 

2. 如 何 使 函数 支持 个 数 不 确定 的 输入 参数 的 情况 ? 

在 Matlab 中 通过 将 输入 参数 设置 为 varargin, 可 以 使 函数 接受 个 数 不 确 定 的 输入 参数 ， 
而 在 Matcom C 十 十 矩阵 库 中 ,可 以 借助 CL 函数 来 实现 。 例 如 ， 


Mm xy 

x= linspace(0,2* pi,100)， 

y= msin(2 * x) 

plot((CLCOO ,y)) 

plot((CLOO yyTMC 77) 

exitM() 

3. 如 何 将 矩阵 数据 存储 到 * . mat 文件 以 及 从 * . mat 文件 载 入 ? 
使 用 save 和 load 函数 进行 矩阵 数据 的 存储 和 载 人 ,其 格式 如 下 : 


save(filename,(CLCmatO) ,mat1，…))5 
load(filename,(CLC(mat0) ,mat1,…))5 


其 中 ,filename 是 Mm 类 型 的 字符 矩阵 ,可 以 使 用 TM 函数 直接 从 C 十 十 字符 串 中 生成 。 
例如 : 


save(TM("mydata. mat" ) ,(CLCOO ，yY)); 


4. 如 何 将 矩阵 数据 存储 为 文本 文件 和 从 文本 文件 中 读 入 数据 ? 
使 用 fprintf 和 fscanf 函数 进行 矩阵 数据 文本 格式 的 操作 ,其 中 fprintf 和 fscanf 的 使 用 方法 
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与 Matlab 中 的 函数 相似 。 下 面 给 出 分 别 利用 save 和 fprintf 两 个 函数 进行 矩阵 数据 存储 的 例子 : 


Mm xi 

x= linspace(0,2 * pi,100); 

yY= msin(2* xD) 

// 采 用 save 函数 将 炬 阵 xy 的 值 存储 到 temp.mat 文件 中 (mat 格式 ) 
save(TMCtemp.mat" ),(CLCOO ,y))5 

Mm fid; 

伽 =fopen(TMC'temp.bdt" ),TMCw )); 

// 采 用 fprintf 函数 将 红 阵 xy 的 值 存储 到 temp. bxt 文件 中 (文本 格式 ) 
fprintf(fid,TM(C" %5.2f, %5.2f \n )，(CLCOOY)); 

fclose(fid)， 


5. 如 何 进 行 字符 串 和 和 矩阵 数值 的 相互 转换 ? 
利用 num2str 和 str2num 函数 进行 字符 串 和 数值 的 互相 转换 。 例 如 ， 


Mm xy 

x= linspace(1,10,10)， 
y= num2strCx)， 

char buf[ 1024]， 
Mstr(y,buf, 1024) 4 
Printf(”%sNm buf， 


输出 结果 为 : 


12345678910 


7.4 Matcom C 十 十 矩阵 库 的 图 形 和 图 像 显 示 功 能 


利用 Matcom C 十 十 矩阵 库 的 图 形 函 数 可 以 实现 数据 的 二 维和 三 维 显示 ,并 且 可 以 实现 图 
像 的 显示 。Matcom C 十 十 矩阵 库 的 图 形 函 数 与 Matlab 的 图 形 函 数 的 名 称 ` 属 性 及 使 用 方法 
几乎 完全 一 样 。 正 因为 如 此 ,Matcom C 十 十 矩阵 库 为 图 形 函 数 提供 的 说 明 比 较 简单 ,如 果 读 
者 在 使 用 过 程 中 碰 到 问题 ,可 以 查看 Matlab 相应 的 图 形 函 数 的 使 用 方法 及 效果 ,然后 再 使 用 
Matcom 的 图 形 函 数 即 可 。 

尽管 如 此 ,由 于 C 十 十 语言 环境 与 Matlab 有 很 大 的 不 同 ,因而 调用 Matcom C 十 十 矩阵 库 
图 形 函 数 还 是 存在 如 下 一 些 特殊 的 地 方 。 

1. 输入 参数 个 数 不 确 定 

Matlab 图 形 函 数 的 输入 参数 的 个 数 大 都 不 确定 ,因而 需要 借助 CL 函数 来 解决 函数 输入 
参数 的 个 数 不 确 定 的 问题 。 关 于 CL 函数 的 用 法 ,请 参照 本 章 “ 调 用 系统 函数 "一 节 关 于 CL 函 
数 用 法 的 讲述 。 

2. 向 Windows 窗口 绘图 

Matcom C 十 十 矩阵 库 图 形 函 数 可 以 直接 向 Windows 窗口 上 绘图 ,因而 可 以 在 Visual 
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C+ 十 MEFC 工程 中 直接 向 MFC 窗口 中 绘图 。 其 实现 方式 如 下 : 
Mm poss 
// 采 用 winaxes 函数 构造 Matcom 绘图 的 图 形 窗口 句柄 
plothandle= winaxes(m_pMainWnd- >m_hWnd)， 
pos= (BR(100),100,400,200)， 
// 设 置 Matcom 窗口 的 位 置 
set(plothandle,TM(" RealPosition" ) ,pos) ， 
// 采 用 plot 函数 向 图 形 窗口 中 绘制 曲线 
plot((CLCrand(1,50))))4 


3. 改变 Matcom 绘图 窗口 的 属性 

在 使 用 Matcom C 十 十 矩阵 库 图 形 函 数 时 ,经 常 需要 用 get 函数 得 到 图 形 绘制 窗口 的 属性 
以 及 用 set 函数 设置 图 形 绘制 窗口 的 属性 。Matcom C 十 十 矩阵 库 通过 图 形 窗口 的 属性 来 控制 
图 形 窗口 的 所 有 外 观 显示 风格 甚至 包括 图 形 窗 口中 显示 曲线 或 者 图 像 的 数据 。 

Matcom C 十 十 矩阵 库 常 用 的 图 形 人 窗口 有 两 种 ,一 种 是 绘制 曲线 的 Line 类 型 图 形 窗 口 ,一 
种 是 显示 图 像 的 Image 类 型 窗口 。 它 们 与 Axes 和 Figure 窗口 的 对 应 关系 如 图 7- 7 所 示 , 即 
Line 窗口 和 Image 窗口 是 从 Axes 窗口 派生 的 ,Axes 窗口 又 是 从 Figure 窗口 派生 的 。 至 于 其 
他 的 图 形 窗 口 如 Patch 等 ,也 都 是 与 Line 和 Image 窗口 处 在 同一 个 派生 层面 上 。 


Figure 


























图 7-7 Matcom 主要 图 形 窗 口 的 关系 图 

Matcom 的 Figure 窗口 的 句柄 被 称 为 Figure 类 型 的 句柄 ,Matcom 的 Image 窗口 的 句柄 
被 称 为 Image 类 型 的 句柄 ,它们 都 是 Mm 类 型 的 对 象 。Figure 类 型 句柄 、Axes 类 型 句柄 、 
Line 类 型 句柄 和 Image 类 型 句柄 的 属性 有 很 多 ,读者 可 以 参考 Matcom 函数 说 明 中 关于 Fig- 
ure,Line 和 Image 等 函数 的 说 明 ,或 者 参考 Matlab 相关 的 帮助 文档 。 下 面 通过 几 个 例子 介绍 
如 何 得 到 和 改变 Matcom 窗口 句柄 属性 。 

//gcf 函数 可 以 看 做 get current figure 的 缩写 ,其 功能 是 得 到 当前 Figure 图 形 窗口 的 句柄 

// 隐 藏 当前 Figure 图 形 窗口 菜单 中 的 about 项 

set(gcfO ,TM("MenuAbout ) ,TMGCOfF 7) 


// 隐 藏 当前 Figure 图 形 窗口 某 单 中 的 所 有 业 单 项 
set(gcf() ,TM(" MenuBar ) ,TMC "None'" )); 
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// 改 变 当前 窗口 的 图 标 ,将 其 更 换 为 gm-ico 所 代表 的 图 标 
set(gcf() ,TM(" IconFile " ) ,TM( gm.ico" ))3 


7.5 Matcom 用 于 图 形 显示 的 常用 函数 


为 了 便于 对 照 和 查阅 , 表 7 - 1 中 列 出 了 常用 的 Matcom 图 形 显示 函数 ,其 中 大 部 分 函数 
的 用 法 与 Matlab 相应 同名 函数 的 用 法 类 似 , 由 于 Matcom 函数 的 说 明 不 是 十 分 详细 ,因而 可 
以 在 Matlab 环境 下 方便 快捷 地 测试 这 些 函 数 的 主要 功能 。 

表 7-1 常用 的 Matcom 图 形 显 示 函 数 










































































函数 名 称 函数 功能 
axis 改变 当前 坐标 轴 的 最 大 、 最 小 值 
elfvclg 清除 当前 Figure 窗口 的 所 有 图 形 对 象 
close 关闭 当前 图 形 窗口 
figure 创建 一 个 新 的 Figure 窗口 ,或 者 切换 到 指定 句柄 的 Figure 窗口 
grid 在 当前 绘图 窗口 中 绘制 网 格 
hold 保持 当前 绘图 窗口 的 内 容 , 使 得 下 次 在 当前 绘图 窗口 上 绘制 新 图 形 
时 ,当前 已 经 绘制 的 内 容 仍然 会 保留 
print 将 当前 图 形 窗口 的 内 容 打印 到 文件 或 打印 机 
subplot 在 当前 Figure 窗口 中 创建 多 个 Axes 绘图 窗口 对 象 
title 为 当前 绘图 窗口 指定 标题 
xlabel,ylabel,zlabel | 为 当前 绘图 窗口 制定 x 轴 、y 轴 和 z 轴 的 标签 
cla 清除 当前 Axes 窗口 的 所 有 已 经 绘制 的 内 容 
drawnow 刷新 当前 图 形 绘制 窗口 ,使 其 马上 绘制 图 形 窗口 数据 缓冲 区 的 数据 
Set 设置 指定 句柄 图 形 窗口 的 属性 
get 得 到 指定 句柄 图 形 窗 口 的 属性 
gca 得 到 当前 Axes 图 形 窗口 的 句柄 
ef 得 到 当前 Figure 图 形 窗口 的 句柄 
line 在 当前 Axes 窗口 中 ,创建 一 个 Line 窗口 对 象 
pu 在 当前 图 形 窗 口中 ,绘制 指定 数据 的 二 维 曲线 
Xes 创建 一 个 Axes 图 形 窗口 ,或 者 切换 到 指定 句柄 的 Axes 图 形 窗 口 





7.6 ”Matcom 进行 图 像 显示 的 常用 函数 


为 了 便于 对 照 和 查阅 , 表 7- 2 中 列 出 了 常用 的 Matcom 图 像 显 示 函 数 ,这 些 图 像 处 理 函 
数 与 其 同名 的 Matlab 函数 的 使 用 方法 十 分 类 似 。 与 Matcom 图 形 函 数 类 似 , 读 者 可 以 在 
Matlab 环境 下 迅速 测试 这 些 函 数 的 主要 功能 。 
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表 7-2 常用 Matcom 图 像 显 示 函 数 
























































函数 名 称 函数 功能 
bmpread | 。 读 取 bmp 格式 的 图 像 
pwrie 写 人 bmp 格式 的 图 像 
Eee 得 到 图 形 对 象 的 图 像 
gifread 读 取 gif 格式 的 图 像 
ifwrite 写 信 时 格 式 的 图 像 
im2double 将 图 像 数据 从 整 型 转换 到 double 型 
image 显示 位 图 
imagesc 按 比 例 显示 的 图 像 
infnto 从 图 像 文件 中 读 取 文件 信息 
al 读 取 图 像 数据 
FE 显示 图 像 数据 
imwrite | 向 文件 中 写 人 图 像 数据 
exread 读 取 pcx 格式 的 图 像 数据 
pexwaite 写 入 pex 格式 的 图 你 数据 
ee 类 似 于 subplot, 创 建 当前 图 形 对 象 的 图 像 显 示 子 对象 
iiread | 。 起 取 if 格式 的 图 像 数 提 
twrite 写 和 人 tif 格式 的 图 像 数据 








truesize 


用 真实 大 小 显示 图 形 对 象 中 的 图 像 





7.7 Matcom 的 应 用 实例 


7.7.1 


1. 实例 说 明 
本 实例 主要 用 来 说 明 Mm 
如 reshape 函数 的 调用 方法 。 


stmatcomvC: CPP 文 任 闪 关 汪 芝 汪汪 生 汪 首 关 汪 生 半天 生生 和 人 


井 include "stdafx.h” 
间 include "stdio-h" 
间 include "matlb.h” 
int mainKint argc，char * argv[]) 
人 
initM(Matcom_VERSION) 
// 炬 阵 的 索引 


实例 1 Mm 矩阵 的 创建 及 使 用 


和 抢 阵 类 的 各 种 创建 及 初始 化 方法 以 及 普通 的 Matcom 函数 ， 


printf(" * * w * * Mm 炬 阵 索引 操作 * * = x Nm ) 
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dMmGo; 

x= magic(3) 1 

printf("x= magic(3) :\Nn" ); 

displayCx)* 

x:rCO) = 一 x-rO) 

x.rC2)+= 1 

x.r(3,1D) wx=x.r(3,1)， 
printf(" 通 过 索引 改变 后 的 x:\n )# 

display(x)* 

7/ 获取 短 阵 数据 的 指针 

printf("\nx * * *# 获 取 答 阵 数 据 的 指针 * * w* sw Nn )5 
dMm(cdata) 

cdata= czeros(1,4,4)， 

cdata(D =1+3* ii 

cdata(6) =6+4*i 

cdata(11) = 2+9w 

cdata(5) = 1+i 

cdata(12) = 5+ 和 

cdata(16) = 入 

printf(" 用 display(data) 显 示 数 据 :\m ); 
display(cdata) ， 
dble pr， = pi 
pr= cdata.addr()， 
pi= cdata.addi()， 
inti=0,j=0y 
printf( "获取 data 数据 指针 后 显 
for(i=Oii<4;i++) 
{ 








Printf(" \n" ) 

for(j=05j<45j++ ) 

{ 
ipi[i * 4+ 门 >0.0000001) 
{《 


printf("%1.0f+ %1.0fi vprLj* 4+ 间 ,piCjx 4+ 门 )， 


elkse 
人 
printf(" %4.0P ,prLj* 4 十 门 ); 
} 
}》 
printfC"\n' )， 


// 直 接 用 double 型 数 初始 化 数组 
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// 由 于 Mm 开 阵 和 C/C++ 数组 的 存储 硕 序 不 一 致 ,因而 需要 做 相应 的 转换 
printf(" \nx * * * * 直 接 用 double 型 数 初始 化 数组 * * * # Nm) 
double v_data[10] = (1,2,3,4,5,6,7,8,9,10}， 
dMm(v)， 
MLVECTOR(v,v_data); 
v= reshape(v,5,2) 
v= transpose(v)， 
printf(" 输 入 的 C 数 组 :\Vn ) 
for(i=Oii<10Ni++) 
{ 
printf("%2.0f "vv_data[ 门 ); 
}》 
printf("\n 根据 输入 的 C 数组 构造 的 Mm 答 阵 :\n ); 
displayCv) 
// 通 过 数据 复制 直接 创建 短 阵 
printf("\nw* w* * *# 通 过 数据 复制 直接 创建 乱 阵 * * * * * Nm) 
double v_data1[10] = (10,9,8,7,6,5,4,3,2,1)， 
memcpy(v, addr(),v_datal,10 * sizeofdouble)) 
v= reshape(v,5,2)， 
v= transpose(Y); 
printf(" 输 入 的 C 数组 :mn')i 
for(i=OHi<1ONi++) 
{ 
printf(" %2.0f ",v_data1[ 门 ); 
)} 
printf("\n 根据 输入 的 C 数组 构造 的 Mm 答 阵 :\n )4 
displayCv); 
// 答 阵 创 建 的 时 候 直 接 赋值 
printf(" * * * # # 代 阵 创建 的 时 候 直接 冉 值 * * * ”wm ) 
dMm (ai 
a= ( 眼 (1),2,3,4,5,semi6,7,8,9,10,semi) 
display(a)， 
printf(" 采 用 colon 函数 构造 的 和 阵 索引 显示 和 矩阵 内 容 :\m ); 
display(colon(1,10))， 
exitM() 
retum 0 
}》 


2， 实例 输出 结果 
实例 程序 运行 结果 如 下 所 示 。 
ww yx wwMm 佐 阵 案 引 操作 = ， ww 


x= magic(3) 
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通过 索引 改变 后 的 xs 

##ss# 获 取 矩 阵 数据 的 指针 盖 皇 二 皇 关 
用 display(data) 显示 数据 : 

获取 data 数据 指针 后 显示 : 


1+3i 1+1i 0 0 

0 6+4i 0 0 

0 0 2+9i 0 

0 0 5+1i 0+T 

乓 类 攻关 直接 用 double 型 数 初始 化 数组 * * 二 
输入 的 C 数 组 : 


1234567 8 910 

根据 输入 的 C 数组 构造 的 Mm 低 阵 : 

##% as# 通 过 数据 复制 直接 创建 短 阵 * * * 皇 
输入 的 C 数组 : 

和 7 

根据 输入 的 C 数组 构造 的 Mm 和 拭 阵 : 
*##s#T 给 阵 创建 的 时 候 直 接 冉 值 ** ， 皇 * 
采用 colon 函数 构造 的 矩阵 索引 显示 和 阵 内 容 : 
x (3X 3) = 9 double elements real (72 bytes) = 
8 1 6 

汪 

4 9 2 

x (3X 3) = 9 double elements real (72 bytes) = 
-8 1.6 

学 

16 9 2 

cdata (4X 4) = 16 double elements complex (128 bytes) = 
1+3i 1+1 0 0 

0 6+4 0 0 

0 0 2+9i 0 

0 0 5+1 0+1i 

V (2X5) = 10 double elements real (80 bytes) = 
1 2 3 4 5 

6 7 8 9 10 

V (2X5) = 10 double elements real (80 bytes) = 
10 9 8 7 5 
和 

a (2X 5) = 10 double elements real (80 bytes) = 
和 

6 7 8 9 10 

ans (1X 10) = 10 double elements real (80 bytes) = 
1 
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7.7.2 实例 2 图 形 绘制 的 基本 功能 演示 


1. 实例 的 最 终 显示 界面 
实例 2 的 运行 界面 如 图 7- 8 所 示 





-- 无 标题 - testaatcom_afc 
文件 四 编 属 G) 查看 GD 帮助 0 
口 太 回 加 是 几 








137313879910TTDTTTSTT181927 为 习习 到 习 关 生 荐 林 入 区 和 利好 要 村 生生 条 移 和 50 





数 半 





图 7-8 实例 2 的 运行 界面 


2. 实例 说 明 
本 实例 采用 Matcom 的 
具体 操作 步骤 如 下 所 述 





函数 在 MFC 的 窗口 内 








@@ 用 Visual C 十 十 6.0 创建 一 个 单 文档 的 MFC 工程 testmatcom_mfc 
@ 在 View 类 中 相关 定义 
Mm m_h; 第 一 个 图 的 Matcom 句 栖 
Mm m_data; 第 一 图 的 数据 
Mm m_hl; 第 二 个 图 的 Matcom 句柄 
第 


二 个 图 的 数据 

BOOL isInitMatcomy Matcom 的 初始 化 标志 

加 添加 Matcom 及 图 形 绘制 函数 的 初始 化 函数 

在 view 类 的 OnInitialUpdate 函数 中 加 入 下 列 初始 化 的 语句 


Mm m_datal; 年 





void CTestmatcom_mfcView: :OnlnitialUpdate() 


CView: :Oninitialupdate( 


TODO: Add your specialized code here and/or call the base class 
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if(1isinitMatcom) 

《 
initM(Matcom_VERSION) ; 
isInitMatcom= 1; 
m_h= winaxes(m_hwnd); 
this 一 二 m_hFlag= 1; 
axesposition(10,10,100,100); 
double bounddata[4] = {0,2* 3. 1415926, 一 1,1); 
Mm mbound; 
ML_VECTOR(mbound,bounddata) ; 
VVaxis 
title( (CLH(TM("SIN 函数 图 形 ")) )); 
xlabel((CL(TM("x")))); 
ylabel({CL(TM("Y")))); 
set(m_h,(CL(TM("Color")) ,TM("black"))); 
set(m_h,(CL(TM("Box")) ,TM("on"))); 
/Vaxis(mbound) 
Mm xy; 
x= linspace(0,2 * pi,100); 
Y= msin(x); 
m_data= yi 
plot((CL(m_data) ,TM("yY") )); 
m_ht = winaxes(m_hWnd) ; 
Mm posi 
pos = (BR(240) ,240,200,200); 
set(m_h1,TM("RealPosition") ,pos) ; 
Mm color; 
color= zeros(1,3); 
color.r(1) =0icolor.r(2) =0i;color.r(3)=0; 
set(m_h,TM("color") ,color); 
m_data1= randn(1,50); 
plot( (CL(m_datal) ,TM("b"))); 
double * phandle= NULL; 
phandle= m_h1.addr() ; 
int nrow,ncol; 
nrow= m_h1.rows(); 
ncol= m_h1.cols(); 
title(CL(TM(" 当 前 的 图 形 "))); 

》}》 

)} 


图 为 了 保证 绘制 图 形 的 大 小 能 够 跟随 主 窗口 的 变化 而 变化 ,在 view 类 的 OnSize 函数 中 
加 入 处 理 代码 。 并 且 IsMatcomHanleValid 函数 将 在 下 面 进行 说 明 ,其 功能 是 判断 当前 的 
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Matcom 图 形 绘制 句柄 是 否 有 效 。 


void CTestmatcom_mtfcView: :OnSize(UINT rnType，int ce, int cy) 
{ 
CView::OnSizeCnType，cx， cy); 
// TODO: Add your message handler code here 
if(this- 二 m_hFlag 二 0) 
VVaxes(m_h); 
if(IsMatcomHanlevalid(m_h) ) 
人 { 
Mm pos; 
pos= zeros(1,4); 
pos,r(1) =0;pos.r(2)=0; 
pos.r(3) = cxipos.r(4) = cy/2; 
set(m_h,TM("RealPosition") ,pos) ; 
上 
if(lsMatcomHanlevalid(m_h1) ) 
{ 





Mm pos; 

pos= zeros(1,4) ; 

pos.r(1T) = r(2) = cY/23; 
pos.r(3) = cxipos.r(4) = cy/2; 





set(m_h1,TM("RealPosition'") ,pos); 
}》 
/axesposition(0,0,cx,cy); 


)} 


回 在 工具 栏 上 添加 一 个 新 的 按钮 ,其 ID 为 ID _DRAWNOISE, 然 后 通过 classwizard 为 
view 类 添加 新 的 消息 响应 函数 OnDrawNoise() 。 这 个 函数 实现 的 功能 为 :在 第 一 个 图 上 绘制 
新 的 曲线 。 其 实现 的 代码 如 下 : 


void CTestmatcom_mfcView: :OnDrawnoise() 
{ 
// TODO: Add your command handler code here 
if(this- 二 isInitMatcom) 
{ 
Mm isHold; 
mu_data= randn(1,200); 
axes(CLm_h)); 
hold(TM("off")); 
isHold= ishold() ; 
if( (int)(isHold.r(1T))) 
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else 


cl(); 
m_h= winaxes(m_hWnd) ; 
m_h1 = winaxes(m_hwnd); 
CRect recti 
GetClientRect(&rect) ; 
int cx= rect. Width(); 
int cy = rect,Height() ; 
话 (IsMatcomHanlevalid(m_h) ) 
{ 
Mm pos; 
pos= zeros(1,4); 
pos.r(1) = 0;pos.r(2) =0; 
pos.rl3)] = cxipos.r(4) = cy/2; 
set(m_h,TM("RealPosition") ,pos) ; 
}》 
axes(CL(m_h)); 
plot((CL(m_data) ,TM("Y"))); 
title( (CL(TM(" 随 机 数 图形 ")) )); 
xlabel( (CL(TM("x")) )); 
ylabel((CL(TM("yY")))); 
set(m_h,(CL(TM("Color")) ,TM("black"))); 
set(m_h,(CL(TM("Box")) ,TM("on"))); 
if(lsMatcomHanlevalid(m_h1T)) 
Mm pos; 
pos= zeros(1,4); 
pos.r(1) =0;pos.r(2) = cy/2; 
pos.r(3) = cxipos.r(4) = cyY/2; 
set(m_h1,TM{"RealPosition") ,pos) ; 
}》 
axes( CL(m_h1)); 
plot( CL(m_datat) ); 
//Invalidate(true) ; 


} 
@@ 关于 IsMatcomHanleValid 函数 的 实现 。IsMatcomHanleValid 函数 用 于 判断 Matcom 
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绘图 句柄 是 否 有 效 , 由 于 Matcom 绘图 句柄 在 失效 的 时 候 并 不 能 自动 告诉 开发 者 ,但 是 可 以 通 
过 Matcom 提供 的 isvalid 函数 实现 IsMatcomHanleValid 函数 的 功能 。 其 实现 的 代码 如 下 。 
bool CTestmatcom_mfcView: :MatcomHanleValid(Mm handle) 
{ 
if(this 一 二 islInitMatcom) 
{ 
Mm len,isH; 
isH = ishandie(handle) ; 
len = length(isH) ; 
if(((int)(len.r( TD))a&&dt (int)(isH.r(T)))) 
{ 


return truei 


return false; 


return false; 


上 


7.7.3 实例 3 利用 Matcom 绘制 动态 曲线 


1， 实例 的 最 终 界 面 

实例 3 运行 界面 如 图 7-9 所 示 。 

2. 实例 说 明 

当 读者 运行 实例 2 时 ,会 发 现 每 次 在 Matcom 图 形 窗口 上 绘制 曲线 的 时 候 ,窗口 内 容 闪烁 得 
很 厉害 。 本 实例 利用 set 函数 设置 Matcom 图 形 窗 口 数据 缓冲 区 数据 以 及 用 drawnow 函数 强制 
Matcom 图 形 窗口 绘制 数据 缓冲 区 的 数据 可 以 达到 避免 图 形 绘制 的 时 候 窗 口内 烁 的 效果 。 

具体 操作 步骤 如 下 所 述 。 

@ 创建 一 个 Visual C++ 6. 0 单 文档 工程 ,为 了 节省 重新 配置 工程 的 麻烦 ,读者 可 以 将 
上 次 创建 的 testmatcom_mfc 空 工程 复制 一 份 ,然后 完成 下 面 的 实例 。 

@@ 在 view 类 中 添加 如 下 成 员 变量 。 


Mm m_hi // 第 一 个 图 的 Matcom 句柄 
Mm m_data // 第 一 图 的 数据 
Mm m_hl， // 第 二 个 图 的 Matcom 句柄 


Mm m_datal; // 第 二 个 图 的 数据 














二 无 标题 - teztsatcom_afc 
文件 人 办 竹 四 查看 J 得 助 o 


口 态 回 


加 时 此 中央 S 








m_hliney 





Mm m_hlin 
int m_nScopeTimerlD; 
int m_scopeflag 

int m_scopeflagl; 


int m_hFlag; 

















矶 1001101151 有 1 贡 二 1 区 1 和 14519 
关 丰 


机 辣 允 


记 时 器 ID 








BOOL isInitMatcomy Matcom 的 初始 化 标志 
在 工具 术 4 1 ,并 创建 其 消息 响应 函数 ,按钮 的 ID 和 消息 响应 函数 的 对 应 
关系 如 表 7 3 所 列 
表 7-3 实例 3 的 1D 和 消息 响应 函数 的 对 应 关系 
开 f 朋 息 响应 函数 

ID_DRAWNOISE OnDmw 站 二 
ID_SINGRAPH OnSingrap 
ID_SCOPE Onscopel 
ID_SCOPE OnScop ER 











另外 ,通过 ClassWizard 


OnTimer 


和 testmatcom_mfcView 


井 站 1 defined(AFX_TESTMatcom 


重 载 WM_SIZE 和 WM_TIMER 两 


个 汉 
个 


息 的 响应 函数 OnSize 和 





码 如 下 : 





testmatcom_mtfcView.h 文件 * 


MFCVIEW_H_52CD9650_BE76_4681_9154_25C00376ETA1 一 INCLUDED_) 
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# define AFX_TESTMatcom_MFCVIEW_HL_52CD9650_BE76_4E581_9154_25C00376E1A1__INCL 


# 放 _MSC_VER 二 1000 

井 pragma once 

井 endif // _-MSC_VER > 1000 
#include "matlb.h” 

class CTestmatcom_mfcView : public CView 

{ 


protected: V// create from serialization only 
CTestmatcom_mfcView(); 
DEQLARE_DYNCREATE(CTestmatcom_mfcView) 

// Attributes 

public: 
CTestmatcom_mfcDoc * CetDocument() 

// Operations 

public: 
Mm m_h; // 第 一 个 图 的 Matcom 句柄 
Mm m_datai // 第 一 图 的 数据 
Mm m_h1i // 第 二 个 图 的 Matcom 句柄 
Mm m_datali // 第 二 个 图 的 数据 


Mm m_hline1,m_hline; 
int m_nScopeTimerID; // 定 时 器 ID 





int m_scopeflag; // 第 一 个 图 是 否 继 续 显 示 标志 
int m_scopeflag1; // 第 二 个 围 是 否 继续 显示 标志 
int m_hFlag; // 图 形 窗口 是 否 创建 
BOOL islnitMatcom; 。 //Matcom 的 初始 化 标志 

1// Overrides 


1/ ClassWizard generated virtual function overrides 
/AAAFX_VIRTUALCCTestmatcom_mfcView) 
public: 
Virtual void OnDraw(CDC* PDC)， V/ overridden to draw this view 
virtual BOOL PreCreateWindow(CREATESTRUCT& cs); 
virtual void OninitialUpdate()， 
protected : 
virtual BOOL OnPreparepPrinting(CPrintinfo * pinfo); 
virtual void OnBeginPrinting(CDC * pPDC，CPrintinfo * plnfo); 
virtual void OnEndPrinting(CDC * PDC，CPrintinfo * plnfo)， 
//AFX_VIRTUAL 

/Implementation 

public: 
boot IsMatcomHanilevalid( Mm handie) ; 
virtual 一 CTestmatcom_mfcView()， 

#ifdef _DEBUG 
virtual void Assertvalid() consty 


UDED 


第 7 章 。”Matcom 与 C/C 十 十 285 








virtual void Dump(CDumpContext& dc) const; 
井 endif 
protected: 
/7/ Generated message map functions 
protected: 
V/A{LAFX_MSC(CCTestmatcom_mfcView) 
afx_msg void OnSize(UINT nType，int cx, int cy); 
afx_msg void OnDrawnoise() ; 
afx_msg void OnTimer(UINT nlIDEvent); 
afx_msg void OnSingraph( ) ; 
afx_msg void Onscopel() ; 
afx_msg void OnScope() ; 


1/ AFX_MSC 
DECLARE_MESSAGE_MAP() 
四 
#ifndef _DEBUC 711 debug version in testmatcom_mfcView.qpp 


inline CTestmatcom_mfcDoc * CTestmatcom_mfcView: :CetDocument() 
{ retum (CTestmatcom_mfcdDoc * )m_pPDocument; } 
井 endif 


III0I00000II00000AA00AL0ALL0AA0LLLALLLALLL0L00LLLLLLLALLLLLLLLLLLLLLLLLA 
//{{AFX_INSERT_IOCATION}} 

11/ Microsoft Visual C+ + wi 刘 insert additional declaratiors immediately before the previous line. 

#endif 

11 ! defined(AFX_TESTMatcom_MFCVIEW_HL_52CD9650_BE76_4E81_9154_25C00376E1A1 一 INCLUDED_) 


stmatcOmLPmfcView.qPP 文 伯 这 闪 生 后 过 二 各 辣 关 关 和 关 着 生 人 
#include "stdafx.h” 
井 include "testmatcom_mfc.h 
间 include "testmatcom_mfcDoc.h” 
井 include "testmatcom_mfcView.h” 
并 ifdef _DEBUC 
井 define new DEBUC_NEW 
#undef THIS_FILE 
static char THIS_FILE[]= 一 FLE_， 
井 endif 
LA 
// CTestmatcom_mfcview 
IMPLEMENT_DYNCREATE(CTestmatcom_mfcView，CView) 
BEGINUMESSACE_MAP(CTestmatcom_mfcView，CView) 
/AUAFX_MSC_MAP(CTestmatcom_mfcView) 
ONLWM_SIZE() 
ON_LCOMMAND{(ID_DRAWNOISE，OnDrawnoise) 
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ON_WM_TIMER{) 

ON_COMMANDIID_SINGRAPH，OnsSingraph) 

ON_COMMAND(ID_SCOPE1，Onscopel) 

ON_COMMAND(ID_SCOPE，Onscope) 

/1/ 睛 AFX_MSG_MAP 

V/ Standard printing commands 

ONLCOMMANDKID_FILE_PRINT，CView: :OnFilePrint) 

ONLCOMMANDUID_FILE_PRINT_DIRECT，CView: :OnEilePrinD) 

ONLCOMMANDKID_FILE_PRINT_PREVIEW，CView: :OnFilePrintPreview) 
END_MESSACE_MAP() 


LUAUAUUAUUUAAUAAAAUAAAUUUUAAAAAAAAAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
1/ CTestmatcom_micView construction/ destruction 
CTestmatcom_mfcView: :CTestmatcom_mfcView() 
{ 
1// TODO: add construction code here 
isInitMatcom=0; 
m_hFlag = 
m_scopeflag= 0; 
m_nScopeTimerID = 0; 








m_scopeflag1 





】} 
CTestmatcom_mfcView: :一 CTestmatcom_mfcView() 
{ 
if(isInitMatcom) 
人 
exitM() 
isInitMatcom= 0; 


} 
BOOL CTestmatcom_mfcView : :PreCreateWindow(CREATESTRUCT& cs) 
{ 
]/ TODO: Modify the Window class or syles here by modifying 
// the CREATESTRUCT cs 
retum CView: :PreCreateWindow(cs); 


LAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
/CTestmatcom_mfcView drawing 

void CTestmatcom_mfcView: :OnDraw(CDC* pDC) 
{《 





LANAAAAAA 


CTestmatcom_mfcDoc * pDoc = GetDocument(): 
ASSERT_VALID(pPDoc); 
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A1/ TODO: add draw code for native data here 


LAAAALLAAAAAAAAAALAAALALALAAAALAAALAAAALLAAALAAAAAALALAAAAAAALLALAAAAAAAAAAA 
// CTestmatcom_mfcView printing 
BOOL CTestmatcom_mfcView: :OnPreparePrinting(CPrintinfo * pinfo) 
{ 
711 default preparation 
retum DoPreparePrinting(plnfo); 
】} 
void CTestmatcom_mfcView: :OnBeginPrinting(CDC * /* PDC* /，CPrintinfo * /* plnfo * /) 
人 
/1/ TODO: add extra initialization before printing 
】} 
void CTestmatcom_mfcView: :OnEndPrinting(CDC* / * PDC* /，CPrintnfo* /* pinfo* /) 
{ 
/1/ TODO， add cleanup after printing 


AAA06LLLALA0AAAAALALA0LLALLLLLLLLLLLLLALLLLLLLLLLLLLLLLALLLALLLLAALALLLL 
// CTestmatcom_mfcView diagnostics 
#ifdef _DEBUC 
void CTestmatcom_mfcView: :AssertValid() const 
{ 
CView: :AssertValid(); 
上 
void CTestmatcom_mfcView: ;Dump(CDumpContext& dc) const 
CVview::Dump(do 
)》 
CTestmatcom_mfcDoc * CTestmatcom_mfcView: :CetDocument() // non 一 debug version ks inline 
{ 
ASSERT(m_pDocument- > skindOf(RUNTIME_CLASS(CTestmatcom_mfcdDoc))) 
return (CTestmatcom_mfcDoc * )m_pDocumenti 
} 
##endif //_DEBUC 


HA 
7// CTestmatcom_mfcView message handlers 
void CTestmatcom_mfcview: :OninitialUpdate() 
人 { 
CView::OninitialUpdateC); 
1/ TODO: Add your specialized code here and/or call the base class 
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谎 (! isinitMatcom) 


{ 


initM( Matcom_VERSION] ; 

isInitMatcom= 1 

m_h= winaxes(m_hwWnd) ; 

this 一 >m_hFlag= 1; 

axesposition{ 10,10,100,100) ; 

double bounddata[4] = {0,2 * 3. 1415926, 一 1,1); 
Mm mbound; 

M_VECTOR(mbound ,bounddata) ; 
axis(mbound) ; 

/Vaxis 

title( (CL(TM("SIN 函数 图 形 ")))); 
xlabel({CL(TM("x")))); 
ylabel((CL(TM("yY")))); 
set(m_h,(CL(TM{("Color")) ,TM("black"))); 
set{m_h,(CLITMI"Box")) ,TM( "on ))); 
//axis(mbound)， 

Mm xyYi 

x= linspace(0,2* pi,100); 

Y= msin(x); 

m_data= yi 

m_hline= plot({CL(x) ,m_data,TM("Y"))); 
m_h1 = winaxes(m_hWwnd) ; 

Mm posi 

pos= (BR(240) ,240,200,200) ; 
set(m_h1,TM("RealPosition") ,pos) ; 

Mm colori 

color = zeros(1,3); 

color.r(1) = 0icolor.r(2) =0icolor.r(3)=0; 
set(m_h,TM("color") ,color) ; 

m_data1= randn(1,150); 

m_hiine1= plot((CL(m_data1) ,TM("b"))); 
set(m_hline1,TM("Xdata") ,jinspace(1,150,150)); 
set(m_hline1,TM("Ydata") ,m_data1); 
drawnow(); 

double * phandle= NULL; 

phandle= m_h1.addr(); 

int nrow,ncoli 

nrow=m_h1.rows(); 

mcol= m_h1.cols(); 
title(CL(TM(" 当 前 的 图 形 "))); 
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} 
void CTestmatcom_mfcview: :OnSize(UINT nType，int cx， int cy) 
{ 
CView::OnSize(nType， cx cy); 
1/ TODO: Add your message handler code here 
//figure(CLCD)， 
if(this- >m_hflag>0) 
{ 
if(IsSMatcomHanlevalid(m_h) ) 
{ 





Mm pos; 

pos= zeros(1,4); 

pos.rt1) = 0;pos.r(2) =0; 
pos.rl3)] = cxipos.r(4) = cy/2; 





set(m_h,TM("RealPosition") ,pos) ; 
和 
if(lsMatcomHanlevalid(m_h1)) 
{ 
Mm pos; 
pos= zeros(1,4); 
pos.r(1) = 0;pos.r(2) = cy/2; 
pos.r(3) = cxipos.r(4) = cy/2; 
set(m_h1,TM("Reaiposition") ,pos) ; 








)} 
void CTestmatcom_mfcView: :OnDrawnoise() 
{ 
// TODO: Add your command handler code here 
if(this- 二 islnitMatcom) 
{ 
m_data= randn(1,200); 
if(lsMatcomHanlevalid(m_h) ) 
{ 
set(m_hline,TM("Xdata") ,jinspace(1,200,200)); 
set(m_hline,TM("Ydata") ,m_data) ; 


drawnow(); 


} 
bool CTestmatcom_mfcView: :lsMatcomHanleValid(Mm handle) 


{ 
if(this 一 >isInitMatcom) 
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Mm lenvisHi; 

isH= ishandle(handle) ; 

len= length(isH); 
if(({(int)(len.r(1)))&s( (int)(isH.r(1)))) 


{ 
return true; 
}》 
else 
return false; 
) 
}》 
else 
{ 
return false; 
)} 


}》 
void CTestmatcom_mfcview: :OnTimer(UINT nIDEvent) 
{ 
/1/ TODO， Add your message handler code here and/or call default 
if(this- >isinitMatcom) 
{ 
if(lsMatcomHanlevalid(m_h)) 
{ 
if(this - 二 m_scopeflag1) 
{ 
Mm ydata,tmpi 
ydata= get(m_hline1,TM("Ydata")); 
int nydatalen'; 
nydatalen = ydata.rows() * ydata.cols(); 
forlint i= 1ii 和 nydatalen;i++ ) 
{ 
ydatar(i) = ydata.rli+ 1); 
上 
tmp=randM(1T,1); 
ydata.r(nydatalen) = tmp.rt1); 
set( m_hline1,TM("Ydata") ,ydatal; 
drawnow(); 
上 
if(this- 二 m_scopeflag) 
{ 
Mm ydatai 
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ydata= get(m_hline,TM("Ydata") ) ; 

int nydatalen; 

double lastydata; 

mydatalen= ydata.rows() * ydata.cols(); 
lastydata = ydatarfnydatalen) ; 

forlint i= nydatalen;i 一 =2; 
{ 





ydata.r(i = ydatar(i 一 1); 
)》 
ydata.r(1) = lastYdatai 
set(m_hline,TM({"Ydata") ,ydata); 


drawnowl); 


:OnTimer(nIDEvent); 





void CTestmatcom_mfcView: :OnSingraph() 
{ 
// TODO: Add your command handler code here 
if(this- 二 islnitMatcom) 
{ 
if(lsMatcomHanlevalid(m_h) ) 
{ 
Mm xyi 
x= Jinspace(0,2* pi,100); 
yY= msin(x); 
set(m_hline,TM("Xdata") ,x); 
set(m_hline,TM("Ydata") ,y); 


drawnow(); 


void CTestmatcom_mfcView: :Onscope1() 
{ 
/1/ TODO: Add your command handler code here 
if(this 一 二 islnitMatcom) 
上 
if(lsMatcomHanlevalid(m_h1) ) 
{ 
if(m_scopeflag1==0) 
人 { 
Mm ydata,tmp; 


292 


精通 Matlab 与 CC 十 十 混合 程序 设计 (第 2 版 ) 








ydata= get(tm_hline1,TM("Ydata")); 
int nydatalen; 
mydatalen= ydata-rows() * ydata.cols(); 
forlint i= Tii 一 nydatalen;i++ ) 
{ 
ydatar( = ydata.rli+ 人; 
)} 
tmp=randM(1,1); 
ydata.r(nydatalen) = tmp.r(1) 1; 
set(m_hline1,TM("Ydata"] ,ydata); 
drawnow(); 
if(m_nScopeTimerID 一 =0) 
{ 
m_nScopeTimerlD = SetTimer(1,50,NULL) ; 
} 
m_scopeflag1= 1; 


m_scopeflag1=0 ; 


》 
void CTestmatcom_mfcView: :OnSscope() 
{ 
// TODO: Add your command handler code here 
it(this- >isinitMatcom) 
{ 
if(lsMatcomHanlevalid(tm_h) ) 
{ 
if(m_scopeflag== 0) 
{ 
Mom ydatai 
ydata = get(m_hline,TM{"Ydata")); 
int nydatalen; 
double lastydatai 
mydatalen = ydata.rows() * ydata.cols( ); 
lastYdata= ydata.rlnydatalen 
forlint i= nydatalenii> = 
{ 








ydata.r(i=ydata.r( 
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ydatar(T) =lastYdata; 
set(m_hline,TM("Ydata") ,ydata) ; 
drawnow(); 
if(m_nscopeTimerID 一 =0) 
{ 

m_nScopeTimerID = SetTimer(1,10,NULL) ; 
} 


m_scopeflag= 1; 


m_scopeflag= 0 ; 


7.7.4 实例 4 利用 Matcom C 十 十 矩阵 库 进行 图 像 显 示 
1. 实例 的 最 终 界面 


实例 4 运行 结果 如 图 7- 10 所 示 


文 俐 @) 的 本 
口 售 旧 





图 7-10 实例 4 运行 结果 


2. 实例 说 明 
本 实例 实现 的 主要 功能 是 : 本 实例 主要 实现 用 Matcom C 十 十 矩阵 库 的 图 像 函数 对 二 维 
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图 像 的 一 般 操作 。 其 中 包括 缩小 和 放大 显示 二 维 图 像 . 改 变 图 像 的 调 色 板 及 采用 Matcom 
C++ 十 矩阵 库 对 图 像 数据 进行 运算 (FFT) 等 。 

具体 操作 步骤 如 下 所 述 。 

@ 首先 创建 一 个 Visual C 二 + MFC 单 文档 工程 testmatcom_image, 根 据 Matcom C 十 十 
和 矩阵 库 的 要 求 配置 好 testmatcom_image 工程 。 

@@ 为 testmatcom_imageview 类 添加 下 面 的 公共 成 员 变 量 。 

bool isInit; //Matcom 初始 化 标志 

Mm m_hi // 用 于 显示 图 像 的 句柄 

Mm m_data，m_map! 。 // 读 人 图 像 的 数据 和 调 色 板 数据 

//24 位 真 彩 图像 到 灰 度 图 像 的 转换 函数 

void rgb2gray(Mm &m_data,Mm &m_outData) ; 

// 判 断 图 像 句柄 是 否 有 效 

bool IsMatcomHandleValid(Mm handle); 

// 将 CString 类 型 的 字符 转换 为 Mm 类 型 的 字符 串 

void ChangeStrToMm(Mm & mstring，CString instring)， 

轩 添加 相应 的 菜单 按钮 和 工具 栏 按 钮 ,按钮 的 ID 及 对 应 的 消息 响应 函数 如 表 7 -4 所 列 。 

表 7-4 testmatcom_image 菜单 和 工具 栏 按钮 























| D 消息 响应 函数 ID 消息 响应 函数 
ID_FFT OnFftO) 1D_RESET OnReset() | 
TD_LargeToSmall 。 | OnLargeTosmallO) | ID_cooL OnCoolO) | 
ID_SmallToLarge 。 | onsmaliToLargeO) | IDJET OnjerO) 
ID_GRAY OnGray() ID_FILE_OPEN OnFileOpen() 











图 在 CTestmatcom_imageview 中 添加 辅助 函数 。 

//24 位 真 彩 图 像 到 灰 度 图 像 的 转换 函数 

void rgb2gray(Mm &m_data,Mm &m_outData)， 

// 判 断 图 像 句柄 是 否 有 效 

bool IsMatcomHandleValidC(Mm handle)， 

// 将 CString 类 型 的 字符 转换 为 Mm 类 型 的 字符 串 

void ChangeStrToMm(Mm &mstring，CString instring); 

回 重 载 WM_SIZE 消息 响应 函数 OnSize() ,以 实现 Matcom 图 形 绘制 窗口 随 着 MFC 
View 窗口 大 小 的 变化 而 变化 。 

下 面 给 出 testmatcom_imageview. h 和 testmatcom_imageview. cpp 文件 的 全 部 代码 如 下 。 


[stmatcomL_ jnageView.h 文件 闪 关 过 汪汪 汪汪 生生 辣 关 和 关 攻 人 
井 if ! defined(AFX_TESTMatcom_IMACEVIEW_HL__C34BC76B_F954_4658_BAFF_CAF5802EC36D_INQUDED_) 
#define AFX_TESTMatcom_IMACEVIEW_HL_C34BC76B_F954_46E8_BAFF_CAF5802EC38BD_-INCLUDED- 

# 放 _MSC_VER 二 1000 

## pragma once 

提 endif // _MSC_VER 二 1000 
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# 井 include "matlib.h” 

class CTestmatcom_imageView : public CView 

业 

protected: 1/ create from serialization only 
CTestmatcom_imageView()3 
DECLARE_DYNCREATE(CTestmatcom_imageView) 

/1 Attributes 


public: 
CTestmatcom_imageDoc * CetDocument()， 
// Operations 
public 
bool isinit; //Matcom 初始 化 标志 
Mm m_h; // 用 于 显示 图 像 的 句柄 
Mm m_data, m_map; 。 // 读 入 图 像 的 数据 和 调 色 板 数据 
//24 位 真 彩 图 像 到 灰 度 图 像 的 转换 函数 
void rgb2gray(Mm &m_data,Mm &m_outData) ; 
// 判 断 图 像 句 柄 是 否 有 效 


bool lsMatcomHandlevalid(Mm handle) ; 
// 将 CString 类 型 的 字符 转换 为 Mm 类 型 的 字符 串 
void ChangeStrToMm( Mm &mstring，CString instring); 
/1 Overrides 
/1 GlassWizard generated virtual function overrides 
/VIAFX_VIRTUALCCTestmatcom_imageView) 
publics 


virtual void OnDraw(CDC * PDC); // overridden to draw this view 


virtual BOOL PreCreateWindow(CREATESTRUCT& cs); 
protected: 
virual BOOL OnPreparePrinting(CPrintinfo * pinfo); 
virtual void On8eginPrinting(CDC * PDC，CPrintinfo * plnfo)， 
virtual void OnEndPrinting(CDC * PDC，CPrintinfo * pinfo)， 
VAN)AFX_VIRTUAL 
// Implementation 
public: 
Virtual 一 CTestmatcom_imageView()， 
间 ifdef _DEBUG 
virtual void AssertValid() consty 
virual void Dump(CDumpContext& dc) consty 
井 endif 
protected: 
/1/ Generated message map functions 
protected: 
/ALAFX_MSG(CCTestmatcom_imageView) 
afx_msg void OnFileOpen{) ; 
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afx_msg void OnSize(UINT nType,， int cx， int cy) ; 
afx_msg void OnFft() ; 
afx_msg void OnLargeTosmall( ) ; 
afx_msg void OnsmalITolargel) ; 
afx_msg void OnReset() ; 
afx_msg void OnCool() ; 
afx_msg void OnGray() ; 
afx_msg void Onjet(); 
] 力 )AFX_MSGC 
DECLARE_MESSACE_MAPC) 
) 
间 ifndef _DEBUC /1/ debug version in testmatcom_imageView. cpp 
inline CTestmatcom_imageDoc * CTestmatcom_imageView : :GetDocument() 
{ retum (CTestmatcom_imageDoc * )m_pPDocument; } 
#endif 


LAUUUUAUAUUAAAUUUUUAAAAAAAAUAAUAAAAAAAWAAAAAAAAAAAAAAAAAAAAAAAAAAA 
//{{AFX_INSERT_LOCATION)} 

/1/ Microsoft Visual C+ + will insert additional declarations immediately before the previous line. 

#endif 

1/ ! detined(AFX_TESTMatcom_IMACEVIEW_H__C34BC76B_E954_46E8_BAFF_CAF5802EC3BD__INCLUDED 
= 
stmatcOmL_jmageView ,GpP 文 伯 关 关 关 党 关 玫 关 首 关 关 症状 关 半 和 人 
提 include "stdafx.h 

井 include "testmatcom_image.h” 

间 include "testmatcom_imageDoc.h 

井 include "testmatcom_imageView.h” 

#ifdef _DEBUG 

间 define new DEBUC_NEW 

井 undef THIS_FILE 

static char THIS_FILEL] = 一 PILE 

井 endif 


00000AAAAAAAAAAAAAAAAL0AAAALALA0AAALALALLAALAAAAAALLLLLLAALLLAA0LLLLALAALLA 
/CTestmatcom_imageView 
IMPLEMENT_DYNCREATE(CTestmatcom_imageView，CView) 
BEGIN_MESSAGE_MAP(CTestmatcom_imageView，CView) 
71/A{{AFX_MSG_MAP(CTestmatcom_imageView) 
ONLCOMMANDKID_FILE_OPEN，OnFileOpen) 
ONLWMLSIZEO) 
ONLCOMMAND(ID_FFT，OnFfbD 
ONLCOMMAND(ID_LargeToSmall，OnLargeTosmalD) 
ONLCOMMAND(ID_SmallToLarge，OnSmallToLarge) 
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ON_LCOMMAND(ID_RESET，OnReseb 

ON_LCOMMANDKID_COOL，OnCooD) 

ON_LCOMMANDKID_GRAY，OnCray) 

ON_LCOMMANDCIDJET, Onjeb 

/AIAFX_MSG_MAP 

/7/ Standard printing commands 

ONLCOMMANDKID_FILE_PRINT，CView::OnFileprin) 

ONLCOMMAND(ID_FILE_PRINT_DIRECT，CView: :OnFileprinD 

ON_LCOMMAND(ID_FILE_PRINT_PREVIEW，CView: :OnFilePrintPreview) 
END_MESSACE_MAP() 





LANAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
// CTestmatcom_imageView construction/destruction 
CTestmatcom_imageView: :CTestmatcom_imageView() 
人 
/ TODO: add construction code here 

islInit = false; 

if(islnit== false) 

{ 








initM(Matcom_VERSION) ; 


isinit = true' 


} 
CTestmatcom_imageView: :一 CTestmatcom_imageView() 
人 
f(islnit) 
证 
exitM( ) ; 
islnil 





=falsei 


} 
BOOL CTestmatcom_imageView ; :PreCreateWindow(CREATESTRUCT& cs) 
{ 

711 TODO: Modify the Window class or syles here by modifying 

1/ the CREATESTRUCT cs 


return CView: :PreCreateWindow(cs); 


7770000000000000000000000000000000000000000000000000000000000000000000 
/1/ CTestmatcom_imageView drawing 

void CTestmatcom_imageView::OnDraw(CDC * pDC) 

{ 
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CTestmatcom_imageDoc * pDoc= CetDocumentO); 
ASSERT_VALID(pDoc)， 
/1/ TopO: add draw code for native data here 


UNAUAAAUAAAAUAAAAAAAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
V/ CTestmatcom_imageView printing 
BOOL CTestmatcom_imageView: :OnPreparePrinting(CPrintinfo * pinfo) 
六 
7V default preparation 
return DoPrepareprinting(plnfo)， 
}》 
void CTestmatcom_imageView: :On8BeginPrinting(CDC * /* PDC* /，CPrintinfo * /* pinfo* /) 
{ 
/1 TODO: add extra initialization before printing 
】} 
void CTestmatcom_imageView: :OnEndPrinting(CDC* /* PDC* /，CPrintnfo* /* pinfo* /) 
1/ TODO: add cleanup after printing 


IIII0000000000000000000000000LA00000L000L0000LL00LLLLL00LLLLLL0L0LLL0LLLA 
// CTestmatcom_imageView diagnostics 
#ifdef _DEBUG 
void CTestmatcom_imageView : :AssertValid() const 
{ 
CView :AssertValid() 
} 
void CTestmatcom_imageView : :Dump(CDumpContext& dc) const 
昌 
CView::Dump(do)， 
在 
CTestmatcom_imageDoc * CTestmatcom_imageView : :GetDocument() // non 一 debug version sinline 
{ 
ASSERT(m_pDocument - > lskindOf(RUNTIME_CLASSCCTestmatcom_imageDoc)))5 
retum (CTestmatcom_imageDoc * )m_pDocument 
} 
林 endif V//_PEBUC 


77II00I700I00I0000000000000000A000000000000000000LA0A0N000000000LALL0 
17 CTestmatcom_imageView message handlers 

// 打 开 图 像 文 件 

void CTestmatcom_imageView: :OnFileOpen() 
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} 


1/ TODO: Add your command handler code here 
static char BASED_CODE szFilter[]= 


"BMP 格式 文件 ( * .bmp)| * .bmpi 所 有 格式 的 文件 (* .* ) | *.*11" 


CFileDialog dlg( 1,NULL,NULL,OFN_HIDEREADONLY | OFN_OVERWRITEPROMPT,szFilter,this) ; 





if(dlg.DoModal( ) =: 
{ 


IDOK) 


CString filename = dlg.GetPathNamel ) ; 
Mm mFileName; 
ChangeStrToMm( mFileName,， filename) ; 
if(! this- 二 IsMatcomHandlevalid(tm_h) ) 
{ 

m_h= winaxes(this 一 二 m_hWnd); 
}》 
imread(mFileName,TM(" * .bmp'") 
int * pdims= m_data.getdims(); 
int ndims = m_data. getndims( ) ; 


ovm_data,m_map); 





int nrow=m_data.rows()i 
int ncol= m_data.cols(); 
m_data= im2double(m_data) ; 
if(ndims==3 ) 
Mm m_datat,maxdatai 
rgb2gray(m_data,m_data1) ; 
m_data= m_datal; 
maxdata= max(max(max(m_data))) ; 
m_data= (m_data/maxdata) * 255; 
)} 
set(m_h,TM("Cdata ") ,m_data) ; 
colormap(gray()); 


drawnow(); 


// 将 C 字 符 串 转换 为 Matcom Mm 类 型 字符 事 答 阵 
void CTestmatcom_imageView: :ChangeStrToMm(Mm &mstring，CString instring) 


{ 


int nlen = instring. GetLength() ; 
mstring = zeros( Tinlen) ; 


mstring.setstr(1 








mstring.r(i+ 1) = instring. GetAt(i 
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} 
void CTestmatcom_imageView: :OnSize(UINT nType，int cc，int cy) 
{ 

CView::Onsize(nType,， cx, cy); 

// TODO: Add your message handler code here 

if(this- 二 lsMatcomHandlevalid(tthis 一 二 m_h)) 

{ 





Mm pos; 
pos= zeros(1,4); 
pos.r(1) = 0;ipos.r(2) = 0; 
pos.r(3) = cxipos.r(4) = cy 
set(m_h,TM("RealPosition") ,pos); 


》 
// 判 断 Matcom 图 形 窗口 句柄 的 有 效 性 
bool CTestmatcom_imageView: :lsMatcomHandlevalid(Mm handle) 
{ 

if(this- 二 isinit) 

1 

Mm len,isH; 

shandle(handle) ; 
Ilen= length(isH) ; 
if(((int)(len.r(T)))&&((int)(isH.r(TD)D))) 
{ 





return true; 
} 
else 
{ 

return false; 


return false; 


)} 
// 对 当前 图 像 进行 FFT, 并 显示 结果 
void CTestmatcom_imageView: :OnFft() 
{ 
/1/ TODO: Add your command handler code here 
if(this 一 二 islnit) 
《 
if(this- 二 IsMatcomHandleVaiid(this 一 二 m_h)) 
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} 


set(m_h,TM("Cdata"],mabs(fft2(m_data))); 


// 将 当前 图 像 缩 小 显示 
void CTestmatcom_imageView: :OnLargeTosmall() 


人 


}》 


1/ TODO: Add your command handler code here 
if(this 一 二 islnit) 


{ 


if(this- 二 lsMatcomHandlevalid(this 一 二 m_h)) 


{ 


axes{CL(m_h)); 

Mm pos; 

Mom xavyai 

xa= get(m_h,TM("Xdata")); 

ya= get(m_h,TM("Ydata")); 

pos= zeros(1,4); 

pos.r(1) = 0;pos.r(2) =0; 

pos.r(3) = xa.r(2);ipos.r(4) =yar(2); 
set(m_h,TM("RealPosition") ,pos); 


// 将 当前 图 像 放 大 显示 
void CTestmatcom_imageView: :OnSmallToLarge() 


人 


/1 TODO: Add your command handler code here 
if(this 一 二 isInit) 


{ 


if(this- 二 lsMatcomHandlevalid(this 一 二 m_h)) 


{ 


CRect recti 

GetClientRect(&rect); 

Mm posi 

pos= zeros(1,4); 

pos.rfT) = 0;pos-r(2)=0; 

pos.rl(3) = rect. Width( ) ;pos-r(4) = rect. Height() ; 
set(m_h,TM("RealPosition ”) ,pos); 
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// 显 示 原 始 图 像 
void CTestmatcom_imageView: :OnReset() 
{ 
/1 TODO: Add your command handler code here 
if(this 一 二 isinit) 
{ 
if(this- >IsMatcomHandlevalidtthis 一 二 m_h)) 
人 { 
set(m_h,TM("Cdata") ,m_datal; 


} 
// 改 变 当前 调 色 板 为 cool 
void CTestmatcom_imageView: :OnCool() 
{ 
// TODO: Add your command handler code here 
if(this- 二 isInit) 
人 
if(this- 二 IsMatcomHandleValid(this 一 二 m_h)) 
{ 
colormap(cooll)); 


】} 
// 将 当前 输入 RGB24 位 真 彩 图 像 转换 为 灰 度 图 像 
void CTestmatcom_imageView : :rgb28gray(Mm &m_data，Mm &m_outData) 
{ 
if(this 二 islnit) 
if(this- 二 IsMatcomHandlevalidlthis 一 二 m_h) ) 
{ 
int ndims; 
ndims = m_data.getndims( ) ; 
if(ndims ! =3) 
{ 


returni 


m_outData = zeros(m_data.rows() ,m_data.cols()); 
一 =m_data-rows() ;i++) 





forlint 


{ 





forlint j= 





一 =m_data.cols();j++ ) 
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m_outDatar(ii)= m_datar(ij,T) * 0.3+ m_datarlij,2) * 0.587+ m_ 
datar(i,j,3) * 0.114; 


} 
} 
// 将 当前 图 像 调 色 板 转 换 为 灰 度 调 色 板 
void CTestmatcom_imageView: :OnCray() 
{ 
/1 TODO: Add your command handler code here 
if(this 一 二 islnit) 
{ 
if(this- 二 lsMatcomHandlevalid(this- 二 m_h) ) 
{ 
colormap(gray()); 
} 
} 
上 
// 将 当前 调 色 板 转换 为 jet 调 色 板 
void CTestmatcom_imageView: :Onlet() 
《 
/1 TODO: Add your command handler code here 
if(this- 二 islnit) 
{ 
if(this- 二 1sMatcomHandleValid(this 一 二 m_h) ) 
{ 
colormap(jet()) 


了》 


7.7.5 实例 5 Matcom 二 维和 三 维 曲线 绘制 综合 应 用 


1. 实例 最 后 结果 

实例 5 运行 结果 如 图 7- 11 所 示 。 

2. 实例 说 明 

本 实例 用 来 说 明 采 用 Matcom C 十 十 和 抢 阵 库 的 图 形 函 数 进行 各 种 类 型 的 数据 显示 功能 ， 
其 中 包括 极 坐标 、 三 维 数据 显示 三维 数 据 等 高 线 显示 二 维 数据 显示 ` 二 维 数据 条 形 图 及 阴影 
显示 等 。 
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图 7-11 实例 5 运行 结果 


具体 操作 步骤 如 下 所 述 。 
O@ 建立 一 个 Visual C 十 十 MFC 多 文档 工程 matcomplotshow 。 
@@ 添加 相应 的 工具 条 按钮 及 其 消息 响应 函数 ,如 表 7-5 所 列 。 
表 7-5 实例 matcomplotshow 工具 条 按钮 及 对 应 的 消息 响应 函数 


























| D 消息 响应 函数 
ID_2DBAR On2dbar() 
ID_2DAREA On2darea0) 
ID_3DBAR On3dbar() 
ID_2DCOMPASS On2dcompass 

| 1D_3DCONTOUR Onadeontour 





回 重 载 WM_SIZE 的 消息 响应 函数 OnSize 及 OnInitialUpdate 函数 。 

图 添加 下 列 辅助 函数 ， 

void ClearDataC(Mm m_h)， 几 清 除 句 栖 为 m_h 的 图 形 窗 口 的 数据 
void ResizePlot()， 几 重 新 布置 当前 Matcom 的 图 形 窗口 
bool IsMatcomHandleValidC(Mm m_h); // 判 断 Matcom 图 形 句 柄 是 否 有 效 
matcomplotshowview.h 及 matcomplotshowview-. cpp 的 所 有 源 代码 的 实现 如 下 所 示 。 


atcOmplotshOwVieW.R 文 件 闪 放 闪闪 关 关 关 关 关 关 关 关 关 半 于 / 
划 放 1 defined(AFX_MatcomPLOTSHOWVIEW_H_61083116_F16E 4166_A7ED_7135FDF4E448_INQUDED_) 
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间 define AFX_MatcomPLOTSHOWVIEW_H_61083116_F16E_4166_A7E0_7135FDF4E448_ INCLUDED_ 
# 放 _MSC_VER 二 1000 

#pragma once 

#endif // _MSC_VER > 1000 

井 include "matlib.h” 

class CMatcomplotshowView :; public CView 


protected: // create from serialization oniy 
CMatcomplotshowview(O)， 
DECLARE_DYNCREATECCMatcomplotshowVview) 

/1 Attributes 

public; 
CMatcomplotshowDoc * CetDocument(); 

/1 Operations 

publics 
Mm m_h,m_hplot; // 第 一 个 Matcom 图 形 窗口 的 figure 句柄 和 Axes 句柄 
Mm m_h1,m_hplot1; // 第 二 个 Matcom 图 形 窗口 的 Figure 句柄 和 Axes 句柄 
bool isTwoplot; // 当 前 View 中 是 天 有 两 个 Matcom 图 形 绘制 窗口 
bool isInit; //Matcom C++ 矩阵 库 是 否 初始 化 
Mm m_2ddatai // 二 维 图 形 y 轴 数 据 
Mm m_2ddataxi // 二 维 图 形 x 轴 数 据 


// Overrides 
// ClassWizard generated virtual function overrides 
/VIAFX_VIRTUALC(CMatcomplotshowView) 
public: 
virtual void OnDraw(CDC * PDC) /overridden to draw this view 
virtual BOOL PreCreateWindow(CREATESTRUCT& cs); 
virtual void OnlnitialUpdate()， 
protected: 
virtual BOOL OnPreparePrinting(CPrintinfo * pinfo)， 
virtual void OnBeginPrinting(CDC * PDC，CPrintinfo * plnfo) ; 
virtual void OnEndPrinting(CDC * pPDC，CPrintinfo * plnfo); 
/AiAFX_VIRTUAL 
Implementation 
publics 
void ClearData(Mm m_h); 
void ResizePlot(); 
bool lsMatcomHandleValid(Mm m_h); 
virtual 一 CMatcomplotshowView(); 
#ifdef _DEBUC 
virtual void AssertValid() const; 
virtual void Dump(CDumpContext& dc) const; 
间 endif 


306 精通 Matlab 与 C/C 十 十 混合 程序 设计 (第 2 版 ) 








protected: 
1/ Generated message map functions 
protected; 
/LAFX_MSG(CMatcomplotshowView) 
afx_msg void OnsSize{UINT nType， int cx, int cy); 
afx_msg void On2dbar() ; 
afx_msg void On3dbar(); 
afx_msg void On2dareal ) ; 
afx_msg void On2dcompass(); 
afx_msg void On3dcontour() ; 
/AiAFX_MSG 
DECLARE_MESSACE_MAP() 
和 
井 ifndef _DEBUG 1/ debug version in matcomplotshowview. qpp 
inline CMatcomplotshowDoc * CMatcomplotshowView: :CetDocument() 
{ return (CMatcomplotshowDoc * )m_pDocument: } 
间 endif 


LU 
{{AFX_INSERT_LOCATION} 

1/ Microsoft Visual C+ + will insert additional declarations immediately before the previous line. 

井 endif 

/1/ ! defined(AFX_MatcomPLOTSHOWVIEW_H__61083116_F16E_4166_A7E0_7135FDF45448_-INCLUDED-) 


atcOmplotshowView .PP 文 特 痊 关 和 演 党 考生 攻关 项 关 其 关 车 关 人 
提 include "stdafx.h" 

并 include "matcomplotshow.h 

间 include "matcomplotshowDoc.h 

井 include "matcomplotshowview.h 

#ifdef _DEBUC 

#define new DEBUC_NEW 

# undef THIS_FILE 

static char THIS_FILE[] = 一 FILE_ 

划 endif 


LA 
71/ CMatcomplotshowVview 
IMPLEMENT_DYNCREATE(CMatcomplotshowView，CView) 
BEGIN_LMESSACE_MAP(CMatcomplotshowView，CView) 
/VIAFX_MSC_MAP(CMatcomplotshowView) 
ONLWMLSIZEO 
ONLCOMMAND(ID_2DBAR，On2dbar) 
ONLCOMMAND(ID_3DBAR，On3adbanr) 
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ON_COMMAND(ID_2DAREA，On2darea) 
ONLCOMMAND(ID_2DCOMPASS，On2dcompass) 
ONLCOMMAND(ID_3DCONTOUR， On3dcontour) 
/1/)AFX_MSCG_MAP 
/1 Standard printing commands 
ONLCOMMANDKID_FILE_PRINT，CView: :OnFilePrinD) 
ON_LCOMMANDKID_FILE_PRINT_DIRECT，CView: :OnFilePrinD 
ONLCOMMAND(ID_FILE_PRINT_PREVIEW，CView: :OnFilePrintPreview) 

END_MESSACE_MAP(O) 


AAAA0ALAA0LAAALAAAAALAALAALLAAALAAAALALLAAALAAALLAAALALAAAALALLLLALLALAALA 
1 CMatcomplotshowView construction/ydestruction 
CMatcomplotshowView: :CMatcomplotshowView() 
{ 

// TODO;: add construction code here 

islnit = falsey 

isTwoPlot = false， 

人 1 islnib) 

人 

initM( Matcom_VERSION) ; 


islInit = truey 


} 
CMatcomplotshowView: :一 CMatcomplotshowView() 
》 
BOOL CMatcomplotshowView: :PreCreateWindow(CREATESTRUCT& cs) 
{ 
1/ TODO: Modify the Window class or styles here by modifying 
// the CREATESTRUCT cs 
retum CView: :PreCreateWindow(cs) 


UN 
/VCMatcomplotshowView drawing 
void CMatcomplotshowView: :OnDraw(CDC* pDC) 
{ 
CMatcomplotshowDoc * pPDoc = GetDocument(O); 
ASSERT_VALID(pPDoc); 
/1/ TODO: add draw code for native data here 


III0II000I0I0I000000000I0000ALI00000LA0I0II0ILL00LLLA00L0L00LL0L00LLLLLLL 
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V/ CMatcomplotshowView printing 
BOOL CMatcomplotshowview: :OnPreparePrinting(CPrintinfo * pinfo) 
1 
7/ default preparation 
return DoPreparepPrinting(plnfo) ; 
】} 
void CMatcomplotshowView::OnBeginPrinting(CDC * / * PDC* /，CPrintinfo* /* pinfo* /) 
1 
1/ TODO: add extra initialization before printing 
)》 
void CMatcomplotshowView: :OnEndPrinting(CDC * / * PDC* /，CPrintlnfo * / * plnfo * /) 
人 
1/ TODO， add cleanup after printing 


LAUAUAUANAAAAAAAUAAAAAAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
1/ CMatcomplotshowView diagnostics 
# 井 iftdef _DEBUG 
void CMatcomplotshowView: :AssertValid() const 
人 
CView: :AssertValid(); 
} 
void CMatcomplotshowView::Dump(CDumpContext& dc) const 
{ 
CView::Dump(dc) 


CMatcomplotshowDoc * CMatcomplotshowView: :CetDocument() 1/ non-debug version is inline 
{ 
ASSERT(m_pDocument - 二 kkindOf(RUNTIME_CLASS(CMatcomplotshowDoc)))， 
return (CMatcomplotshowDoc * )m_pDocument' 
} 
提 endif //_pEBUG 


UL 
1/ CMatcomplotshowView message handlers 
bool CMatcomplotshowView: :lsMatcomHandleValid(Mm handle) 
{ 
if(this- 二 islnit) 
攻 
Mm len,isH; 
jsH = ishandle( handle) ; 
jen = length(isH) ; 
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if(((int) (len.rtTD)))Sa&((int)(isH.r(D)))) 


人 { 
return true; 
上 
else 
{ 
return falsei 
)} 
} 
else 


return false; 


} 
void CMatcomplotshowView: :OnSize(UINT nType，int cx，int cy) 
{ 
CView::On5ize(nType，cx，cy); 
/1/ TODO: Add your message handler code here 
if(islnit) 
{ 
if( LisTwoplot) 
{ 
if(this- 二 IsMatcomHandlevalid(m_h) ) 
{ 





Mim posi 
position.r(1) =0 
{2) =0; 


position.r(3) = cx 


zeros(1,4); 








position.r(4) = cy; 
set(m_h,TM("RealPosition") ,position) ; 
这 
if(this- 二 lsMatcomHandleValid(tm_h1) ) 
{ 
Mm position = zeros(1,4); 





position.r( 1 = 
position.r(2) 
position.r(3) = 0; 


position.r(4) =0; 
set( m_h1,TM( "RealPosition ") ,position); 


else 
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if(this- 二 IsMatcomHandlevalid(m_h)) 
{ 
Mm position = zeros(1,4); 


nr(1) 三 








position.r(2) =0; 





position.r{(3) = cx; 
position.r(4) = cy/2; 
set(m_h,TM("RealPosition") ,position) ; 

】} 

iflthis- 二 MatcomHandlevalid(m_ht) 

{ 
Mm position = zeros(1,4); 
position.r(1) = 0; 
position.r(2) = 
position.r(3) 
position.r(4) = cy/2; 
set(m_h1,TM("RealPosition") ,position) ; 





} 
void CMatcomplotshowview:sOninitialUpdate() 
{ 
Cyiew::OnlnitialUpdate()， 
1/ TODO:, Add your specialized code here and/or call the base class 
m_h1= winaxes(this- 一 m_hwnd); 
Mm position= zeros(1,4); 
position.r(1) = 





position.r(2) = 0; 
position.r(3) =0 











position.rl(4) = 
set(m_h1,TM("RealPosition") ,position) ; 
m_h= winaxes(this- 二 m_hWwnd); 
m_2ddatax = linspace(0,2 * pi,100); 
m_2ddata = msin(m_2ddatax) ; 
m_hplot = plot({(CL(m_2ddatax) ,m_2ddata)); 
axes(CL(m_h1)); 
m_hplot1= plot( (CL(m_2ddatax) ,m_2ddataj) ; 
set(m_h,TM("Nextplot") ,TM("replace")); 
set(m_h1,TM("NextPlot") ,TM( replace ")); 

} 

// 油 试 二 维 数据 条 形 图 显示 

void CMatcomplotshowView::On2dbar() 
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/1 TODO: Add your command handler code here 


if(islnit) 


革 


if(this- 二 lsMatcomHandlevalid(m_h) ) 


{ 


}》 


axes(CL(m_h)); 

Mm color= zeros(1,3); 
color.r(1 =0; 
color.r(2) = 1 
color.r(2) = 
ClearData(m_hplot); 

m_hplot = bar(m_2ddatax,m_2ddata) ; 

set( m_hplot,TM( "color ) ,color) ; 
axes(CL(m_h1)); 

ClearData(m_hplot1) ; 

m_2ddatax= linspace(0,2 * pi,50) 

m_2ddata = msin{m_2ddatax) ; 

m_hplot1= barh(m_2ddatax,m_2ddata,TM("b") ) ; 
this- 二 isTwoplot = true; 

Resizeplot() ; 





// 测 试 三 维 数据 条 形 图 显示 
void CMatcomplotshowView: :Onadbar() 


人 


// TODO: Add your command handler code here 


if(isinit) 


人 


if(this- 二 IsMatcomHandlevalid(m_h) ) 


{ 


axes(CL(m_h) ); 

Mm color= zeros(1,3); 
color.r(1 =0; 

color.r(2) =1; 

color.r(2)=1; 
ClearData(m_hplot) ; 

m_hplot= bar3(m_2ddatax,m_2ddatal; 
set(m_hplot,TM("color") ,color) ; 
axes(CL(m_h1)); 
ClearData(m_hplotT) ; 
set(m_hplot1,TM("color ") ,color) ; 
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m_2ddatax= linspace(0,2* pi,50); 
m_2ddata in(m_2ddatax) ; 

m_hplot1= bar3h(m_2ddatax,m_2ddata,TMI 
this- 二 isTwoPlot= true; 

ResizePlot() ; 











} 


// 重 新 布置 当前 Matcom 的 图 形 窗口 
void CMatcomplotshowView:sResizeplot() 
{ 
if( 
{ 





nit) 


CRect recti 
GetClientRect(&rect) ; 
int cx= rect. Width() ; 
int cy = rect,Height() ; 
if( 1isTwoplot) 
if(this- 二 IsMatcomHandlevalid(m_h)) 
{《 
Mm position = zeros(1,4); 
0 





position.r(T) 
position .r(2) 





position.r(3 
position.r(4) = cy; 
set(m_h,TM("RealPosition") ,position) ; 





if(this- 二 IsSMatcomHandleValid(m_h1) ) 
{ 





position.r(4) = 0; 
set(m_h1,TM("RealPosition ") ,position) ; 


if(this- 二 IsMatcomHandlevalid(tm_h)) 
{《 
Mm position = zeros(1,4); 
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position.r(TD) = 0; 
position.rl2) = 
position-r(3) = cxi 

position-r(4) = cy/2; 

set( m_h,TM{"RealPosition") ,position) ; 





)} 
if(this- 二 IsMatcomHandlevalid(m_hT)) 
{ 

Mm position = zeros(1,4); 








position.rl3) = cxi 
position.r(4) = cy/2; 
set(m_h1,TM("Realposition") ,Position) ; 


}》 
// 清 空当 前 图 形 窗口 缓冲 区 的 数据 
void CMatcorplotshowView: ;ClearData(Mn handle) 
{ 
if(islnit) 
{ 
if(this- 二 IsMatcomHandlevalid(handle) ) 
上 
Mm temp; 
set(handle,TM( "Xdata") ,temp); 
set(handle,TM("Ydata") ,temp 
set(handle,TM("Zdata") ,temp); 





} 
// 二 维 数 据 阴 影 显示 
void CMatcomplotshowView: :On2darea() 
{ 
// TODO: Add your command handler code here 
if(isinit) 
{ 
if(this- 二 IsMatcomHandlevalid(m_h)) 
{ 
axes(CL(m_h)) ; 
Mm color= zeros(1,3); 


color.r(1 =0; 


313 


314 


精通 Matlab 与 C/C 十 十 混合 程序 设计 (第 2 版 ) 








color.r(2)=1; 

color.r(2) =1; 

ClearData(m_hplot) ; 

m_hplot = area( (CL(m_2ddatax) ,m_2ddata) ) ; 
set(m_hplot,TM("color ") ,color); 

this- 二 isTwoplot = false; 

Resizeplot() ; 


// 二 维 数据 极 坐 标 显示 
void CMatcomplotshowView: :On2dcompass() 


{ 


V// TODO: Add your command handler code here 


if(isinit) 


{ 


if(this- 二 IsMatcomHandlevalid(m_h) ) 


{ 


上 


axes(CL(m_h)); 

Mm color= zeros(1,3); 
color.r(11 =1T; 
color.r(2) =0; 
color.r(3)=0; 
ClearData(m_hplot) ; 
Mm xdata,ydatai 

xdat 





eros(1,4); 


ydata= zeros(1,4); 





ydata.r(4) = 一 1 

m_hplot = compass(xdatavydata) ; 
set(m_hplot,TM("color") ,color) ; 
this- >isTwoplot= falkse; 
Resizeplot() ; 


// 三 维 数据 网 格 及 等 高 线 显示 
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void CMatcomplotshowView: :On3dcontour() 
{ 
1// TODO: Add your command handler code here 
if(isinit) 
{ 
if(this 一 二 1sMatcomHandlevalid(m_h) ) 
{ 
axes{CL(m_h)); 
ClearData( m_hplot) ; 
Mm data= peaks(); 
m_hplot = mesh( CL(data)) ; 
view(10,， 0); 
this 一 二 isTwoPlot = truei 
Mm color; 
color = zeros(1,3); 
color.r(1)=0; 
color.r(2) =0; 


color.r(3)1 = 





set(m_hplot,TM("color ") ,color); 
axes(CL(m_h1)); 
ClearData(m_hplot1) ; 

m_hplot1 = contour( CL(data) ) ; 
ResizePlot 








第 8 章 ，Visual C 十 十 调用 Matlab C 十 十 数学 库 


8.1 Matlab C 十 十 数学 库 介 绍 


Matlab C 十 十 数学 库 包含 了 四 百 多 个 常用 Matlab 数学 函数 ,并 且 其 调用 方式 和 Matlab 
函数 的 使 用 习惯 极其 相似 。 对 于 Matlab 的 使 用 者 来 说 ,采用 Matlab C++ 十 数学 库 , 可 以 使 应 
用 程序 完全 脱离 Matlab 的 解释 环境 。 对 于 C 二 十 的 使 用 者 来 说 ,采用 Matlab C 十 十 数学 库 可 
以 充分 利用 Matlab 已 有 的 矩阵 运算 的 数学 函数 库 ,加 快 程序 的 开发 进度 。 

对 带 有 Matlab C 十 十 数学 库 的 Matlab 6. 5 版 本 ,Matlab 数学 库 安装 以 后 ,在 二 Matlab 根 
目录 之 \externNincludeNcpp 目录 下 可 以 看 到 matlab. hpp 和 libmwsglm. hpp 两 个 文件 。 


8.2 在 Visual C 十 十 工程 中 调用 Matlab C 十 十 数学 库 


如 果 要 在 Visual C 十 十 工程 中 调用 Matlab C 十 十 数学 库 , 需 要 按照 下 面 3 个 步骤 改变 
Visual C 十 十 工程 创建 时 的 默认 设置 。 

1. 需要 加 入 和 忽略 的 静态 链接 库 

对 于 使 用 Matlab C 十 十 数学 库 的 Visual C 十 十 工程 人 员 来 说 ,在 Visual C 十 十 工程 设置 
中 需要 加 入 的 静态 链接 库 有 :libmatpm. lib、libmx. lib、libmatlb. lib、libmat lib、libmmfile. 
lib、sgL Hb 和 ibmwsglm. lib, 如 图 8 - 1 所 示 。 其 中 sgL lib 和 libmwsglm. lib 只 有 在 用 到 
Matlab C 十 十 图 形 库 时 才 需 要 在 VC 十 十 工程 设置 中 加 入 。 


Songaror Wiazbeim 
三 SET 本 
4 
人 TITTTTTCTT 
人 

| 








Force symbol references: 
[一 














图 8-1 需要 加 入 的 静态 链接 库 
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另外 ,在 Visual C 十 十 工程 设置 中 需要 忽略 VC 十 十 的 MSVCRT 静态 链接 库 。 
2. 设置 C/C 十 十 选项 卡 中 的 选项 


在 Category 的 下 拉 列 表 框 中 选择 Code Generation ,在 Use run-time library 下 拉 列表 框 
中 选择 Multithreaded DLL。 如 图 8 - 2 所 





Project 5 
Seneml | Debug cicey | Unk | Resowrces | Bi CD 


Cateoonr 【OCT | Beset | 


Proceasor ie runtime library: 
Jaend 可 wwwreadedbLL 可 








Cating convention' CS 
三 eded* faeByes” 








DEBUG"1D 
ESG 让 MBCS"1D "MSVC51D "MSWIND" 阁 


了 


Cancel 














图 8-2 改变 Runrtime library 的 设置 


在 Category 的 下 拉 列 表 框 中 选择 Peprocessor, 并 且 在 Preprocessor definitions 文本 框 中 
增加 如 下 内 容 :MSVC,MSWIND,IBMPC,D__STI AFXDLL。 如 图 8-3 所 示 。 











JowATLAB6p5pTVexterncudevcpp 
三 Jgnore standard incude paths 


Prolec Opens: 区 
nl 1GX 辣 1od1iD3MATLAB6p5p1 坟 
eacog 3Z: BUG"， 





evcp| 
jconsoLE'D ”MBcs"D "SVCD 'MSWINDiD 、 








| 


图 8-3 增加 预定 义 宏 
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3. 在 工程 中 包含 相应 的 头 文件 
在 Visual C 十 十 工程 中 如 果 不 用 Matlab C 十 十 图 形 库 , 则 只 需要 包含 头 文件 matlab. hpp; 
如 果 要 用 到 Matlab C 十 十 图 形 库 , 则 需要 包含 头 文件 matlab. hpp 和 libmwsglm. hpp。 


8.3 Matlab C 十 十 数学 库 的 使 用 


Matlab C 十 十 数学 库 与 Matlab 及 Matlab C 数学 库 类 似 , 只 有 Matlab 阵列 一 种 数据 类 
型 。Matlab C 十 十 数学 库 中 用 mwArray 类 封装 了 Matlab 阵列 的 数据 及 其 基本 操作 函数 。 而 
对 于 Matlab 对 和 抢 阵 进行 操作 的 函数 ,Matlab C 二 十 数学 库 通过 提供 外 部 函数 的 方式 供用 户 调 
用 。mwArray 的 定义 可 以 在 (Matlab 根 目 录 )\extern\include\cpp\ dblmtrx. h 文件 中 找到 。 
下 面 分 别 介绍 mwArray 及 Matlab 数学 库 函数 的 调用 方法 。 


8.3.1 输入 和 输出 矩阵 


1. 直接 输出 到 屏幕 

由 于 Matlab C 十 十 数学 库 重 载 了 C 十 十 的 标准 输入 cin 和 输出 函数 cout, 因而 可 以 用 cin 
和 cout 直接 从 标准 输入 /输出 设备 中 输入 和 输出 Matlab 阵列 。 

下 面 是 一 个 利用 C 十 十 标准 输入 /输出 函数 输入 和 输出 Matlab 阵列 的 例子 。 


[CPP 文 任 痊 辣 凑 着 其 其 关 条 条 着 着 半 二 关 基 关 人 
井 include "stdafx.h 
#include "matlab.hpp” 
间 include 一 stdlb.h> 
static double data[]={ 1，2，3，4,，5，6 ) 
int main(void) 
{ 
// 创建 短 阵 
mwArray mat0(2，3，data); 
mwArray mat1(3，2，data)， 
// 和 矩 阵 输出 
cout<< 一 mat0 一 一 endh 
cout< 一 mat1 一 一 endh 
// 输入 矩阵 并 将 输入 的 矩阵 输出 
cout<< 一 "Please enter a matrix: "一 一 endl; 
cin 二 > mat1; 
cout 一 一 matl 一 一 endl 
return 0; 
}》 


Matlab 输入 /输出 实例 运行 结果 如 图 8 -4 所 示 。 


























图 8$-4 Matlab 输入 输出 实例 运行 结果 


2.， Matlab mwArray 阵列 数据 的 输入 和 输出 的 其 他 方式 
除了 标准 输入 和 输出 函数 以 外 ,Matlab mwArray 阵列 数据 还 有 其 他 丰富 的 输入 输出 方 
式 ,例如 : 
@ 采用 文件 流 将 变量 输出 到 文件 和 从 文件 中 读 取 变 量 
9 通过 Matlab C 十 十 数学 库 自 己 的 文件 O 实现 变量 的 读 写 
采用 MAT 文件 导入 和 导出 数据 
将 mwArray 数据 输出 到 字符 串 中 和 从 字符 串 中 读 取 mwArray 阵列 数据 
到 底 选用 何 种 Matlab mwArray 阵列 数据 的 输入 和 输出 方式 ,需要 根据 用 户 使 用 Matlab 
库 的 方式 来 决定 。 例 如 在 控制 台 K 下 ,使 用 标准 输入 /输出 方式 比较 简单 方便 
在 Visual C 十 十 6.0 MFC 工程 中 ,使 用 文件 输入 /输出 和 字符 串 输入 /输出 则 比较 方便 。 下 面 
的 例子 分 别 给 出 了 上 述 4 种 Matlab mwArray 阵列 数据 的 输入 /输出 方式 的 实现 方式 
























rraylO.cpp 





并 include "stdafx.h” 

# include "matlab.hpp” 
间 include "mex.h 

井 include "matrix.h 


井 include "fstream.h” 


int main(int argc，char * argv 


采用 文件 流 将 变量 输出 至 
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char filename[] = " 教 据 输 出 -txt 

mwArray m_data; 

m_data= rand(3,3) 

ofstream out_file( "数据 输出 . bd” ，ios::oub); 
out_file 一 一 m_data 一 一 ends 

m_data= magic(4); 
out_file 一 一 m_data 一 一 ends; 

out_file. close()， 

// 采 用 文件 流 将 存储 在 文件 中 的 变量 读 入 
mwArray A,Bi 

ifstream in_file(" 数 据 输 出 .txt”，ios::in); 
in_file>>>>A>>B; 


cout<< 一 "采用 文件 流 从 文件 “一 一 filename<< 一 " 中 读 入 的 变量 如 下 ;一 一 endl 


cout 一 一 A 一 一 endh 
cout<< 一 8 一 一 endl; 


// 通 过 Matlab C++ 数学 库 自己 的 文件 VO 实现 变量 的 读 写 


char filename1[]= "数据 输出 1.bxt 
mwArray mwfilefilename1) ， 

mwArray 亿 = fopen(mwfile，w"); 
fprintf( 亿 ,"%f %f %fAn" ,A)， 
fprintf(fd"\n") + 

fprintf( 亿 ，%4d %4d %4d %4d\n" ,B); 
fclose(fd) 


mwArray szA,szB,C,Di 
SzA= horzcat(3,3)4 
SzB= horzcat(4,4) 1 


亿 = fopen(mwfile，m) 
C= fscanf( 亿 ,，%f %f %fn” ,szA); 
D= fscanf( 人 d,，%4d %4d %4d %4d\n" ,szB); 


cout<< 一 "采用 文件 WO 从 文件 “一 一 filename1 一 一 
cout 一 一 C 一 一 endl' 
cout< 一 D 一 一 endl; 


fclose(fd); 

// 字 特 型 mwArray 对 象 数据 通过 文件 UO 的 读 写 
char flename2[]= "字符 串 给 出 -bt 

mwArray s1(" 实践 是 检验 真理 的 惟一 标准 人 )# 
mwArray s2(" 没有 付出 ,就 没有 收获 ! ) 


中 读 入 的 变量 如 下 ， 一 一 endh 
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)》 


mwArray 53,s4 

mwArray mwfile1(filename2) ; 

他 = fopen(mwfilel,"wr ); 

fprintf(fd，%s\n" ,s1,52) 1 

fclose( 人 d)* 

他 = fopen(mwfilel"r ); 

33= fgetl(fd)， 

中 = fgetlfd)， 

cout 一 一 "从 文件 “一 一 filename2 一 一 ”中 读 入 的 字符 事变 量 如 下 ;， 一 一 endl 
cout 一 一 呈 一 endh 

cout<< 一 %4 一 一 endh 

fcloseCfd)， 

// 采 用 MAT 文件 导入 和 导出 数据 

char filename3[] = "dataoutput.mat"， 

Save(filename3，"A" ,A，"8" ,B，s1" ,s1，S2” ,52) 4 
mwArray al,bl,cl1,d1; 

load(filename3,"A" ,&al,"B" ,&bl，si",&cl，S2,&dD) 
人 (tobool(A==al))&& 








(tobool(s2==d1))) 


cout<< 一 "采用 MAT 文件 进行 数据 导入 和 导出 正确 1 \n < 一 endl 


cout< 一 "采用 MAT 文件 进行 数据 导入 和 导出 错误 1 \m" <<<endly 
} 
// 采 用 将 mwArray 对 象 数据 输出 到 字符 事 中 
mwArray mwstr+ 
mwstr= sprintf(" %6.4f %6.4f %6.4fi\n ,A); 
cout<< 一 "将 对 象 A 的 数据 输出 到 字符 串 中 :一 一 endl 
cout 一 一 mwstr<< 一 endl; 
return 0 


程序 运行 结果 如 下 所 示 。 
采用 文件 流 从 文件 数据 输出 . bd 中 读 入 的 变量 如 下 : 


[ 


] 


0.95013 ”0.48598 ”0.45647 : 
0.23114 “0.89130 ”0.01850 ; 
0.60684 “0.76210 ”0.82141 
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16 2 3 13 
吕 11 10 8 
9 7 6 12 
4 14 15 1 


] 
采用 文件 MO 从 文件 数据 输出 1.tbxt 中 读 入 的 变量 如 下 : 
[ 
0.95013 ”0.48598 ”0.45647 
0.23114 ”0.89130 ”0.01850 
0.60684 ”0.76210 ”0.82141 


16 2 了 13 
5 11 10 8 
9 7 6 12， 
4 14 15 未 


从 文件 字符 囊 输 出 .txt 中 读 入 的 字符 事变 量 如 下 : 
! 实践 是 检验 真理 的 惟一 标准 ! “ 
"没有 付出 ,就 没有 收获 ! / 

采用 MAT 文件 进行 数据 导入 和 导出 正确 ! 

将 对 象 A 的 数据 输出 到 字符 串 中 ， 

,0.9501 0.2311 0.6068， 

0.4860 0.8913 0.7621) 

0.4565 0.0185 0.8214+ 


8.3.2 操作 Matlab mwArray 阵列 


所 有 的 Matlab C 十 十 数学 库 函 数 的 输入 都 是 mwArray 类 型 的 Matlab 阵列 ,因而 熟悉 
Matlab mwArray 阵列 的 操作 是 使 用 Matlab C 十 十 数学 库 的 基础 。mwArray 支持 的 Matlab 
阵列 类 型 有 ， 

@ 数值 型 阵列 

@ 稀 朴 矩阵 阵列 

@ 字符 型 阵列 

@ 元 组 阵列 

@ 结构 体 阵列 

其 中 ,mwArray 只 支持 将 二 维 数 值 型 阵列 转化 为 稀 朴 矩阵 阵列 。 

1. 创建 Matlab mwArray 阵列 的 操作 

创建 Matlab mwArray 阵列 对 象 有 两 种 方式 ,一 种 是 通过 mwArray 类 的 构造 函数 创建 
Matlab mwArray 阵列 ; 另 一 种 是 其 他 函数 如 rand 等 的 返回 直接 创建 Matlab mwArray 阵列 。 
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常用 的 创建 Matlab mwArray 阵列 对 象 的 方法 如 表 8 - 1 所 列 。 
表 8-1 创建 Matlab mwArray 阵列 对 象 的 方法 











操作 代 三 功能 说 明 
mwArmay Ai ] 直接 创建 一 个 未 初始 化 的 mwArray 对 旬 
empty() 创建 一 个 空 的 Matlab 阵列 ([]) 





mwArray(double) // 从 double 型 变量 创建 


本 
mwArray(int) // 从 int 型 变量 创建 全 一 个 近亲 获 全 了 列 ( 只 和 二 个 下 各 





mwArray(int Mint Nvdouble * data)， 
mwArray(int Mint Nint sdata)， 创建 MXN 行 数值 阵列 ( 即 和 矩阵 ) 
mwArray(int Mint Nint * data)， 





mwArray( mxArray * ) 5 // 指 针 模式 


WA 
mwArray( const mxArray &)， /1/ 引 用 模式 八大 入 





mwArray(int start， int distance，int end) 
mwArray(double startvdouble distance ,double end) 创建 一 个 线性 变化 的 数值 阵列 
相当 于 marlab 的 startidistancetend 








mwArray(const mwSubAray&) 了 从 索引 数组 中 产生 mwArray 对 象 


采用 两 个 函数 :horzcat() 和 vertcat() 
其 中 ,horzcat(A,B) 和 vertcat(A,B) 相 当 于 Matlab 
的 [A 四 和 [A;B] 语 句 


通过 连接 现 有 的 mwArray 阵列 对 象 产生 
新 的 Matlab mwArray 阵列 对 象 





创建 全 1 .全 零 . 或 者 均匀 分 布 的 随机 数 和 
高 斯 分 布 的 随机 数 构成 的 Matlab 阵列 


eye() 和 magic( ) 创建 单位 矩阵 和 魔方 矩阵 


ones() ,zeros() \rand() 和 randn() 

















下 面 给 出 创建 Matlab mwArray 阵列 对 象 几 种 常用 方式 的 实现 方法 及 程序 运行 的 结果 。 


WArrayCreate. CPP 文 位 其 关 党 党 这 这 营 关 着 其 半 名 关 亲 共生 
和 include "stdafx.h” 
井 include "matlab.hpp" 
井 include 一 stdlb.h> 
井 ifdef GCC 
间 ifndef EXIT_SUCCESS 
间 define EXIT_SUCCESS 0 
提 endif 
井 endif 
double data[] = 11,2,3,4,5,6,7,8); 
int main(int argc，char * argv[]) 
{ 


// 创 建 二 维 数组 
mwArray mwadata(2,4,data); // 从 原 有 的 double 型 数组 中 创建 
mwArray copymwdata(mwadata); 1/ 复制 原 有 的 mwArray 对 象 


/1 从 C double 型 数组 中 创建 按 列 存储 方式 的 Matlab mwArray 阵列 
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mwArray mwadataRowMajor= row2mat(2,4,data); 
// 创 建 多 维 数组 
// 创 建 二 维 数 组 ,然后 采用 reshape 来 实现 
mwArray multiD， 
multiD = reshape(mwadata,2,2,2)， 
// 采 用 Matlab C++ 数学 库 的 函数 实现 ,如 randvzerosvrandn 等 
//Matlab 语句 rand333= rand(3,3,3)eye33 = eye(3,3) 
mwArray rand333veye33，assignArray: 
rand333=rand(3,3,3)4 
eye33= eye(3,3)， 
// 直 接 采 用 “= "来 实现 
/x# Matlab 语句 : 

fori=1:3 

assignArray(iviD = 

end 
7 
inti= 0 
for(i=Oki<35i++) 
{ 








assignArray(i+ Ti+ Ti+ TD)= 1 
于 
//Matlab 的 “:" 运 算 特 在 Matlab C++ 数学 库 中 的 实现 用 ramp 
//Matlab 语 名。 rampindex = 1:3:20+colonindex= 0:2:20 
mwArray rampindex= ramp(1,3,20); 
mwArray colonindex = colon(0,2,20); 
//Matlab 语句“D= zeros(3,3,3)1D(:，:,3) =5 
mwArray Di 
D= zeros(3,3,3) 
D(colon() ,colon(),3) = 5 
// 采 用 横向 或 者 纵向 连接 新 的 数组 元 组 的 方式 
//Matlab 语句 A=[123];8B=[456]:C=[AB]; 
mwArray A,BCi 
A=horzcat(1,2,3) 
B= horzcat(4,5,6)， 
C= vertcat(A,B) 
cout< 一 "mwadata= "一 一 mwadata<< 一 endh 
cout<< 一 "copy of mwadata= "一 一 mwadata 一 一 endh 
cout<< 一 "采用 row2mat 从 按 行 存储 的 C double 数组 中 创建 接 列 存储 的 Matlab rmwArray 阵列 "一 一 end} 
cout<< 一 "通过 通配符 colon 实现 赋值 ,一 一 mwadataRowMajor< 一 endh 
cout<< 一 "通过 reshape 创建 的 2X2X2 教 组 = "一 一 mukiD<< 一 endl 
cout< 一 "3X3X3 随机 数 数组 = "一 一 rand333 一 一 endl 
cout 一 一 "3X3 单位 矩阵 = "一 一 eye33 一 一 endh 
cout<< 一 "直接 通过 = 号 创建 的 3X3X3 维 数组 = "一 一 assignArray<<<endl 
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cout 一 一 "通过 ramp 创建 的 索引 数组 = "一 一 rampindex 一 一 endl; 
cout 一 一 "通过 colon 创建 的 索引 数组 = "一 一 colonindex<< 一 endl; 
cout<<"D= "<<D<< 一 endh 
cout 一 一 "横向 连接 产生 的 数组 A=\t 一 一 A 一 一 "B= 一 一 8 一 一 endh 
cout< 一 "A 和 日 委 向 连接 产生 的 数组 C= "一 一 C 一 一 endl; 
return EXIT_SUCCESS; 

】} 


程序 执行 结果 如 下 所 示 。 
mwadata=  [ 
1 3 5 7， 
2 4 6 
| 
copy of mwadata= [ 
1 3 5 7， 
这 4 6 
] 


采用 row2mat 从 按 行 存储 的 C double 数组 中 创建 技 列 存储 的 Matlab mwArray 阵列 
通过 通配符 colon 实现 财 值 ，[ 





1 2 3 4 
5 6 学 
洁 
通过 reshape 创建 的 2X2X2 数 组 =[ 
CsyD= 
[ 
1 3 
2 4 
5 7 
6 8 
] 
3Xx3X3 随 机 数 数组 =[ 
(CosyD= 
[ 


0.95013 ”0.48598 ”0.45647 
0.23114 ”0.89130 ”0.01850 ; 
0.60684 ”0.76210 ”0.82141 

] 

(Cs92) = 

E 
0.44470 ”0.92181 ”0.40571; 
0.61543 ”0.73821 0.93547 ; 
0.79194 ”0.17627 0.91690 
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] 

〈:，:3) = 

[ 

0.41027 ”0.35287 ”0.13889 ; 
0.89365 ”0.81317 ”0.20277 
0.05789 ”0.00986 ”0.19872 





] 
3X3 单位 矩阵 = 
1 0 0 
0 1 0， 
0 0 1 
] 
直接 通过 = 号 创建 的 3X3X3 维 数组 =[ 
(CsyD= 
[ 
1 0 0 
0 0 0 
0 0 0 
| 
(osv2)= 
E 
0 0 0 
0 1 0， 
0 0 0 
了 
(593) = 
[ 
0 0 0 
0 0 0， 
0 0 由 
可 
通过 ramp 创建 的 索引 数组 = 
1 4 7 10 13 16 19 
] 
通过 colon 创建 的 索引 数组 = 
0 2 4 6 8 10 12 
16 18 20 
] 
D=[ 
(CosyD= 
0 0 0， 
0 0 0 


第 8 章 ， Visual C 十 十 调用 Matlab C 十 十 数学 库 327 











(2) = 
[ 


0 0 0 
0 0 0 
0 0 
] 
(53) = 
[ 
5 意 5 
5 生计 
洒 过 吃 
] 
横向 连接 产生 的 数组 A= [ 
1 2 】 
] 
B= [ 
4 5 6 
] 
和 A 和 昌 重 向 连接 产生 的 数组 C= 【[ 
1 2 3， 
4 5 6 


] 


2. Matlab C 十 十 数学 库 对 稀疏 矩阵 的 操作 


当 和 矩阵 中 非 零 元 素 占 所 有 元 素 的 比例 很 低 的 时 候 ,采用 稀 朴 矩阵 可 以 有 效 地 降低 矩阵 占 
用 的 存储 空间 。 表 8 - 2 给 出 了 Matlab 稀疏 矩阵 常用 的 操作 函数 。 
表 8-2 操作 Matiab C 十 十 数学 库 的 稀疏 矩阵 






































上 操作 夯 数 功能 说 明 
sparse() 创建 sparse 数组 
To parse 数 组 与 正 党 数组 的 转换 
spones() 将 sparse 数组 中 的 非 零 元 素 全 部 转换 为 ! | 
andO prandn0 和 sprandnsym() | 将 sparse 数组 中 的 非 曙 元素 全 部 转换 为 随机 数 
onvenO 将 文本 文件 转换 为 称 天 矩阵 
speye0 创建 一 个 单位 各 下 撼 阵 ] 
ma 确定 数值 矩阵 中 的 非 符 元 素 个 数 
ER 剂 断 稳 玻 矩阵 中 最 多 可 以 存储 多 少 个 非 稚 元 素 
[eeo 和 返回 包含 甜 阵 中 所 有 非 罕 元 素 的 向 量 








下 面 的 例子 给 出 了 对 Matlab mwArray 稀 朴 矩阵 的 基本 操作 方法 及 从 文本 文件 中 将 数据 
读 到 Matlab mwArray 中 的 方法 。 


afSeArrayCreate. cpp 文 任 送 关 演 壮 关 汪 病症 省 二 汪汪 和 和 人 
井 include "stdafx-h” 
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间 include "matlab,hpp" 

提 include 一 stdlib.h> 

划 ifdef CCC 
## ifndef EXIT_SUCCESS 
#define EXIT_SUCCESS 0 

井 endif 

井 endif 

int main(int argc，char * argv[]) 

{ 
// 创 建 称 疏 从 阵 
// 直 接 从 原来 矩阵 的 基础 上 生成 称 下 矩 阵 
mwArray A,sparseAi 
A=eye(5,5); 
sparseA= sparse(A) 
// 利 用 索引 创建 Matlab 答 阵 
double inums[]= (3,4,5,4,5,6) 
double jinums[] = (4,3,3,5,5,4) 
mwArray indexSi 
mwArray MK16,inums,NUULD)， 
mwArray ij(1,6,jnums,NUULD)， 
indexS= sparse(i, j，9,，8, 7)， 
// 从 文本 文件 中 读 取 数 据 并 将 其 转换 为 称 昼 矩阵 
// 注 意 data 阵列 的 数据 格式 : 


行 列 数据 
8 1 6.0000 
各. : 温 7.0000 
4 9 2.0000 
滞 4 委 1.8000 
mwArray filename("sparsedata dat")， 
mwArray data + 
mmwArray spdata ; 
mwArray fid; 


何 =fopen(filename， rm) 

data = fscanf(fid," %P ,mwArray(3* 4))3 

data = reshape(data,3,4) 

data= transpose(data); 

cout< 一 data 一 一 endl 

spdata = spconvert(data); 

fclose(fid)* 

cout 一 一 "单位 答 阵 A:" 一 一 A 一 一 endl 
cout< 一 "单位 答 阵 A 的 稀疏 矩阵 "一 一 sparseA 一 一 endh 
cout 一 一 "利用 索引 创建 的 称 疏 矩阵 "一 一 index5 一 一 endl; 
cout<< 一 "将 上 述 稀 天 矩 阵 转换 为 一 般 矩 阵 形式 :一 一 full(indexS) 一 一 endl; 
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cout 一 一 "分 析 稀 疏 短 阵 的 属性 :一 一 endl; 

cout<< 一 "\t 非 零 元 素 个 数 :一 一 nnz(indexS) 一 一 endh 

cout<< 一 "\t 最 大 可 存储 的 非 零 元 素 个 数 :一 一 nzmax(indexS) 一 一 endl; 
cout<< 一 "从 文件 读 取 的 稀疏 矩阵 为 : “二 一 spdata 一 一 endl; 

return 0; 


和 


程序 执行 结果 如 下 所 示 。 
单位 矩阵 A， [ 
1 0 0 0 0 
0 ， 0 0 0 
0 0 1 0 0， 
0 0 0 1 01 
0 0 0 0 1 
] 
单位 矩阵 A 的 稀疏 矩阵 
ans 二 
(CD 1 
(2,2) 1 
(3,3) 1 
《4，4)》 1 
(5,5) 1 
利用 索引 创建 的 称 天 答 阵 
ans= 
(4,3) 9 
(5,3) 9 
《3，4) 9 
《6,4) 9 
(4,5) 9 
(5,5) 9 
将 上 述 称 琉 蝶 阵 转换 为 一 般 矩 阵 形式 ; [ 
0 0 0 0 0 0 
0 0 0 0 0 0 
0 0 0 9 0 0 
0 0 9 0 9 0 
0 0 9 0 9 0 
0 0 0 9 0 0 
0 0 0 0 0 0 
0 0 0 0 0 0 
] 
分 析 稀疏 矩阵 的 属性 : 
非 零 元 素 个 数 : [ 


6 


oooeoeoeoc 
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最 大 可 存储 的 非 零 元 素 个 数 : [ 
6 
村 


从 文件 读 取 的 称 芋 矩阵 为 : 
ans= 
(8,D) 6.0000 
(3,5) 7.0000 
(4,9) 2.0000 
(9,9) 1.8000 


3. Matiab C 十 十 数学 库 对 字符 型 阵列 的 操作 
在 Matlab 及 Matlab C+ 十 数学 库 中 ,一 维 字符 阵列 与 普通 C/C 十 十 语言 的 字符 圳 相对 
应 ,二 维 字 符 阵 列 与 普通 的 C/C 二 十 语言 的 字符 串 数 组 相对 应 。 对 于 Matlab 二 维 字符 阵列 而 
言 ,每 行 ( 即 字符 串 数组 中 的 每 个 字符 串 ) 的 长 度 必须 一 致 。 因 此 ,Matlab 二 维 字符 阵列 每 行 
的 长 度 必 须 是 最 长 字符 串 的 长 度 。 
Matlab C 十 十 数学 库 中 关于 字符 型 阵列 的 主要 函数 如 表 8 - 3 所 列 。 
表 8-3 字符 阵列 的 常用 操作 函数 及 其 功能 









































换 作 丽 数 功能 说 明 

TiwArray string(vabcd")} /构造 函数 | 创建 字符 阵列 2 

char_fune(y) 由 数值 阵列 创建 字符 阵列 

double_func(》 将 字符 阵列 转换 为 其 ASCIL 码 值 字符 阵列 

ER 将 一 维 字符 阵列 连接 为 多 维 字符 阵列 ,多 维 字符 阵列 中 小 于 最 
大 长 度 字符 申 长 度 的 行 用 空格 扩展 

0 从 字符 阵列 中 生成 元 组 阵列 ,其 中 字符 阵列 的 每 一 行 作为 一 个 
元 组 阵列 的 元 过 

um2str 将 数值 阵列 的 数字 按照 一 定 的 格式 转换 为 相应 字符 表示 形式 

Str2num | 与 num2str 相反 ,将 用 字符 申 表 示 的 数字 转换 为 数值 阵列 

本 末 将 输入 的 数值 阵列 四 含 五 人 转换 为 整数 ,然后 将 相应 的 整数 值 

| 转换 为 字符 让 





下 面 的 实例 给 出 了 Matlab C 十 十 数学 库 对 字符 阵列 常用 的 操作 方法 ,其 中 包括 ， 
@ 创建 字符 阵列 。 

@ 将 存储 ASCII 码 值 的 数值 阵列 转换 为 字符 阵列 。 

@@ 将 一 维 字符 阵列 连接 为 多 维 字符 阵列 。 

图 将 字符 阵列 转换 为 元 组 阵列 表示 形式 。 

回 从 字符 阵列 中 提取 数值 阵列 的 数据 。 


harArrayCreate. GPP 闪 和 汪汪 着 关 各 着 项 针 着 半生 病 关 证 半 和 人 
间 include "stdafx.hy 

间 include "matlab.hpp” 

并 include 一 stdlb.h> 

间 ifdef GCC 
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井 ifndef EXIT_SUCCESS 
# define EXIT_SUCCESS 0 
井 endif 
井 endif 
int main(int argc，char * argv[]) 
{ 
// 创 建 字符 型 数组 
mwArray sHello("Hellof” ); // 利 用 构造 函数 
// 将 其 他 数值 类 型 数组 转换 为 字符 形式 
mwArray doubleData,sFromDoubleDatat 
doubleData = horzcat(109,121,32,115,116,114,105,110,103); 
sFromDoubleData = char_func(doubleData); VVdoubleData 中 保存 字符 的 ASCH| 码 值 
// 用 一 维 字符 串 重 新 构造 字符 吾 和 字符 矩阵 
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mwArray sA = char_func(sHello,sFromDoubleData) ， // 采 用 char_func 函数 将 字符 囊 组 合 为 字符 答 阵 


mwArray sB= horzcat(sHello,sFromDoubleData); 。 // 用 连接 函数 构造 更 长 的 字符 串 
mwArray sSC= str2mat(sHello,sFromDoubleData); 。 // 采 用 str2mat 函数 构造 字符 答 阵 
mwArray sCell= cellstr(sC)， // 将 字符 答 阵 转换 为 元 组 表示 形式 
// 将 字符 类 型 的 数值 转换 为 数值 表示 形式 

mwArray 5S("5. 1234,4.36,6.45") 

mwArray SN= str2num(s5); 

cout<< 一 "利用 构造 函数 创建 字符 数组 ， 一 一 sHello< 一 endh 

cout<< 一 "数值 类 型 数组 :" 一 一 doubleData 一 一 endl; 

cout<< 一 "将 其 转换 为 字符 :一 一 sFromDoubleData 一 一 endl; 

cout<< 一 "采用 char_func 函数 将 字符 事 组 合 为 字符 矩阵 :一 一 SA 一 一 endl 

cout 一 一 "采用 连接 函数 将 字符 囊 连 接 为 一 个 长 字符 串 ， 王 一 呈 << 一 endh 
cout 一 一 "采用 str2mat 函数 将 字符 串 连 接 为 一 个 长 字符 串 ， 王 一 sC<< 一 endl 
cout<< 一 "字符 答 阵 的 元 组 表示 形式 :一 一 sCell 一 一 endh 

cout<< 一 "字符 串 :" 一 一 SS 一 一 "转换 为 数值 一 一 SN<<<endh 


returmn 0; 
}》 
程序 执行 结果 如 下 所 示 。 
利用 构造 函数 创建 字符 数组 : Hello! " 
数值 类 型 数组 : [ 
109 121 32 115 116 114 105 110 


] 
将 其 转换 为 字符 : my string" 
采用 char_func 函数 将 字符 囊 组 合 为 字符 矩阵 : [ 
Hellol 
Imy string' ; 
] 
采用 连接 函数 将 字符 串 连 接 为 一 个 长 字符 串 :"Hellol my string' 
采用 str2mat 函数 将 字符 这 连接 为 一 个 长 字符 事 :[ 
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Hellol 
my string' ; 
] 
字符 从 阵 的 元 组 表示 形式 : Hello! 
1+my string' 
字符 齐 :'5. 1234,4.36,6.45' 转换 为 数值 [ 
5.12340 “4.36000 6.45000 


] 


4， Matlab C 十 十 数学 库 对 元 组 阵列 的 操作 
采用 Matlab 元 组 阵列 可 以 将 不 同类 型 的 Matilab 阵列 组 织 到 一 起 ,Matlab C 十 十 数学 库 
中 同样 提供 了 对 Matlab 元 组 阵列 的 操作 。 其 中 常用 的 函数 如 表 8 -4 所 列 。 
表 8-4 元 组 阵列 的 常用 操作 函数 及 其 功能 


操作 函数 功能 说 明 

cell 创建 Matlab 元 组 阵列 

将 Marlab 字符 阵列 转换 为 元 组 阵列 , 见 本 书 Matlab C 十 十 数学 库 的 字符 阵列 操作 部 分 
通过 连接 现 有 的 Matalb 阵列 ,创建 一 个 元 组 阵列 

struct2cell | 将 结构 体 转换 为 元 组 阵列 表示 

num2cell 将 数值 阵列 转换 为 元 组 阵列 表示 

eelldisp 在 标准 输出 设备 上 显示 元 组 阵列 的 内 容 
















cellhcat 




















下 面 的 实例 给 出 了 Matlab C 十 十 数学 库 对 元 组 阵列 常用 的 操作 方法 ,其 中 包括 ， 
@ 采用 各 种 方法 创建 元 组 阵列 。 

@@ 直接 为 元 组 阵列 元 素 赋值 。 

图 将 数值 阵列 转换 为 元 组 阵列 。 

图 采用 celldisp 函数 显示 元 组 阵列 。 


[CArrayCreate. CPP 文 笠 党 党 其 其 过 着 条 关 项 关 关 放 半 天 亲人 
提 include "stdafx.h 
间 include "matlab.hpp” 
# include 一 stdlb.h> 
间 ifdef GCC 
提 ifndef EXIT_SUCCESS 
井 define EXIT_SUCCESS 0 
提 endif 
#endif 
int main(int argc，char * argv[]) 
《 
// 创 建 Cell 阵列 ,并 采用 cell 创建 函数 
mwArray cCell; 
cCell= cell(3,3); 
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// 数 值 阵列 到 Ceil 阵列 转换 函 孝 

double data[9] = {1,2,3,4,5,6,7,8,9)， 

mwArray mdata(3,3vdata); 

mwArray transferCell; 

// 将 data 数组 的 每 列 转换 为 一 个 cell 元 素 

transferCell = num2cell(mdatavmwArray(1)) 

// 连 接 现 有 阵列 

//Matlab 语句 hC= { 'jon' ones(2)》 magic(3) 5 }vC= { \jon'; ones(2); magic(3); 5 》 
mwArray hC = cellhcat("jone" ,ones(3) ,magic(3),4)， 

mwArray vC = vertcat(cellhcat("jone" ) ,cellhcatCones(3)) ，cellhcat(magic(3)) ,celthcat(4)) 
// 直 接 为 Cell 阵列 赋值 

//Matlab 语句 aD{2,2}='hellol ， 

//aD.,cell(2,2) 中 的 cell 函数 相当 于 {} ,与 全 局 函数 cell 不 同 
mwArray aDi 

aD.cell(2,2) = ("hello )， 

cout 一 一 "采用 cell(3,3) 创 建 的 Cell 阵列 :\m' 一 一 cCell 一 一 end 
cout 一 一 "采用 num2cell 创建 的 Cell 阵列 :\n" 一 一 transferCell< 一 endl; 
cout<< 一 "采用 cellhcat 创建 的 Cell 阵列 :\n" 一 一 hC<< 一 endl 
cout<< 一 "采用 vertcat+ cellhcat 创建 的 Cell 阵列 :\n 一 <<vC<<<endl; 
cout<< 一 "采用 直接 冉 值 的 方法 创建 的 Cell 阵列 :\m' 一 一 aD 一 一 endh 
// 采 用 celldisp 显示 Cell 阵列 的 内 容 

cout<< 一 "采用 celldisp 显示 Cell 阵列 的 内 容 ,， 一 一 endl; 
celldisp(vC，vC") 


return 0 
} 
程序 执行 结果 如 下 所 示 。 
采用 cell(3,3) 创 建 的 Cell 阵列 
| 口 口 
口 口 口 
口 O 口 
采用 num2cell 创建 的 Celt 阵列 > 
[0 本 人 “二 
CI 人 NO 
[多 工 从 


采用 cellhcat 创建 的 Cell 阵列 : 

1jone' [3x3 double] [3x3 double] [4] 
采用 vertcat + cellhcat 创建 的 Cell 阵列 : 

Wone' 

[3Xx3 double] 

[3x3 double] 

[ 和 
采用 直接 赋值 的 方法 创建 的 Cell 阵列 : 
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吕 DO 
口 hello' 
采用 celldisp 显示 Cell 阵列 的 内 容 : 
vC(T) = 
jone 
vC(2) = 
1 1 1 
1 1 1 
1 1 1 
vC{3} = 
8 1 6 
3 5 7 
4 9 2 
vC(4} = 
4 


5S. Matlab C 十 十 数学 库 对 结构 阵列 的 操作 
Matlab 结构 体 阵 列 的 主要 操作 函数 如 表 8 - 5 所 列 。 
表 8-5 结构 体 阵 列 的 常用 操作 函数 及 其 功能 


























换 作 函数 功能 说 明 
truet_fune() 创建 并 初始 化 Matlab 结构 体 阵列 
cellzstructO) 将 Matlab 元 组 阵列 转换 为 结构 体 阵列 
fieldnames() 返回 Matlab 结构 体 阵列 的 城 名 
isfieldO) 判断 输入 的 字符 惠 是 否 为 结构 体 阵 列 的 起 名 
erfieldO) 根据 域名 得 到 Matlab 结构 体 阵列 的 内 容 
sedfieldO) 根据 域名 设置 Matlab 结构 体 阵列 的 内 容 | 
rmfield() 根据 域名 去 除 结构 体 阵列 的 域 





下 面 的 实例 给 出 了 Matlab C 十 十 数学 库 构 造 结构 体 阵列 的 不 同方 法 ,以 及 采用 isfield 函 
数 根据 结构 体 域名 查询 结构 体 域 是 否 存在 的 方法 。 具 体 代码 如 下 所 示 。 


[SUCHArrayCreate. cpP 文件 闪闪 关 关 关 辣 策 和 着 二 半 亲 闪 订 关 人 
间 include "stdafx.h” 
间 include "matlab.hpp” 
井 incdlude 一 stdib.h> 
# ifdef GCC 
井 ifndef EXIT_SUCCESS 
提 define EXIT_SUCCESS 0 
共 endif 
井 endif 
int main(int argc，char * argv[]) 
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// 构 建 Matlab 结构 阵列 
mwArray sAi 
SA= struct_funcC"Name" , "Daniel ， 
"Phone" ,888888， 
“Address"， 北 京 市 外 国语 学 院 " ); // 结 构 体 域名 结构 体 域 值 

// 采 用 cell2struct 转换 函数 构建 结构 阵列 
/Matlab 语 旬 

吧 = (Daniel',888888,' 北京 市 外 国语 学 院 ) 

SC= {IName',Phone', ,Address); 

SD= cell2struct(s8,sC,2) 
7/ 
mwArray 5B,sC,sD， 
虽 = cellhcat("Daniel" ,888888," 北 京 市 外 国语 学 院 ")， 
SC= cellhcat(" Name" ,Phone" Address" )， 
SD= cell2struct(s8,sC,2); 。 // 注 意 2 
/* Matlab 语句 

s8= {'Daniel'3888888;' 北京 市 外 国语 学 院 0) 

SC= {IName','Phone', ,Address) 

SsD= cell2struct(s8,sC,D 
/ 
弗 = vertcat(cellhcat(" Daniel" ) ,cellhcat(888888) ,cellhcat(" 北京 市 外 国语 学 院 ")) 
SC= cellhcat("Name" Phone" ,Address )， 
sD= cell2struct(sB,sC,1D)， 。 // 注 意 1 
cout<< 一 "采用 struct_fucn 函数 构建 结构 :\n" 一 一 SA 一 endl 
cout<- 一 "采用 cell2struct 转换 函数 构建 结构 :\n' 一 一 sD 一 一 endh 
char str[30]; 
cout<< 一 "请 输入 需要 查询 的 域名 :\n 一 一 endl 
cin >> str 
mwArray is= isfield(sD,stD 
放 tobool(is)) //tobool 用 于 将 mwArray 布尔 变量 转换 为 C+ + 布尔 变量 
{ 

cout<< 一 "输入 域名 在 结构 体 sD 中 存在 ! \m 一 一 endl 
} 
return 0; 

上 


程序 执行 结果 如 下 所 示 。 


采用 struct_ fucn 函数 构建 结构 : 
Name: ,Daniel' 

Phone: 888888 

Address:， ' 北京 市 外 国语 学 院 
采用 cell2struct 转换 函数 构建 结构 : 
Name: 'Daniel' 


336 精通 Matlab 与 C/C+ 十 混合 程序 设计 (第 2 版 ) 








Phone: 888888 

Address:“' 北京 市 外 国语 学 院 ， 
请 输入 需要 查询 的 域名 :Name 
输入 域名 在 结构 体 sD 中 存在 ! 


6. 访问 mwArray 类 中 的 数据 

Matlab C 十 十 数学 库 提 供 可 以 访问 mwArray 类 的 内 部 数据 的 函数 ,这 些 函 数 都 是 Mat- 
lab C 十 十 数学 库 的 内 部 函数 。 通 过 这 些 函 数 , 开 发 人 员 可 以 和 其 他 外 部 开发 环境 如 Matlab C 
数学 库 进 行 数 据 交 互 。 

(1) GetData( ) 函数 

GetData() 函数 返回 一 个 mxArray 结构 的 指针 ,通过 这 个 mxArray 结构 ,开发 人 员 可 以 
通过 Matlab C 数学 库 的 函数 进行 数据 访问 操作 。 使 用 GetData() 函 数 需要 注意 的 是 ,不 要 释 
放 GetData() 函 数 返 回 的 mxArray 指针 指向 的 内 存 及 mxArray 中 包含 的 数据 。 

(2) ExtractSealar( ) 函数 和 ExtractData( ) 函数 

相对 于 GetData() 函 数 来 说 ,ExtractScalar() 和 ExtractData() 两 个 函数 使 用 起 来 更 安全 ， 
但 是 速度 稍 慢 。ExtractScalar() 函 数 用 于 从 数值 类 型 的 mwArray 对 象 中 提取 单个 数据 元 素 ， 
ExtractData() 函数 则 用 来 从 数值 类 型 的 mwArray 对 象 中 提取 多 个 数据 元 素 。 

(3) ToString( ) 函数 

使 用 ToString() 函 数 可 以 将 字符 类 型 mwArray 中 的 字符 数据 转换 为 C/C 十 十 语言 字符 
串 数据 。 例 如 ， 


mwArray A= "Hello Worldl"， 
mwstring s= A. ToString()， 
char wc=strdup((dhar * )5)4 


需要 注意 的 是 ,字符 指针 e 的 生命 周期 与 mwString 相同 ,mwString 析 构 的 时 候 指针 指 
向 的 内 容 会 自动 被 释放 ,因而 如 果 开 发 人 员 释 放 指 针 c 指向 的 内 容 , 就 会 在 mwString 析 构 的 
时 候 造 成 程序 崩溃 。 如 果 开 发 人 员 需 要 对 字符 串 “ 进 行 下 一 步 的 操作 ,可 以 先 对 其 进行 复制 ， 
然后 再 对 复制 的 字符 串 进行 操作 。 


TIWVDataACCeSS. CPP 文 伯 党 党 辣 党 生 凑 二 其 关 闪闪 装着 半 基 亲人 
间 include "stdafx.h 
井 include "matlab.hpp" 
间 include "mex.h" 
间 include "matrix.h 
int main(int argc，char w argv[]) 
{ 
mwArray A,B; 
mxArray * pMx= NULL; 
double * pData= NULL; 
int juks 
A=rand(3,3); 
pMx= A.GetDataC); 
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} 


pData = mxGetPrCpMoxD) ， 
cout<< 一 "通过 GetData 和 Matlab C 数学 库 访问 mwArray 的 数据 :一 一 endi 
cout.precision(2)， 
for(j=0ij<9;j++) 
{《 
cout< 一 pData[ 站 < 一 ，， 
cout< 一 endl; 
// 构 造 复数 数组 B 
B=A+rand(G3,3) * ii 
cout< 一 "B= "一 一 endh 
cout. precision(3) 
cout<< 一 8 一 一 endl 
double rdata5 ,idata5，* prdata, * Pidataf 
prdata= new double[3 * 3]， 
pidata = new double[3 * 3]; 
rdata5 = B. ExtractScalar(idata5,5) 4 
cout .precision(2) 
cout< 一 "B 的 第 5 个 元 素 为 一 <rdata5 一 一 " + "一 天 idata5 一 < 一 一 endh 
B. ExtractData(prdatavpidata) } 
cout<< 一 "通过 ExtractData 返回 的 数据 遍历 B 的 各 个 元 素 ， 一 一 endly 
for(j=0jj<35j++) 
{《 





for(k=0ik 一 3ik++) 
{ 
cout<< 一 prdata[3 *k+ 门 < 一 " + "一 一 pidata[3 * k+ 门 << "1 “4 
}》 
cout<< 一 endl; 
】} 
V/ToString 的 使 用 
mwArray C= "No Pain! No Gainl" 
mwstring sC= C. ToString(); 
char wstr= strdup((char * )sC); 
whileC * str! = \0) 
{ 
cout< < wstr 
str+ 二 
)} 
cout<< 一 endl 
retum 0 


程序 执行 结果 如 下 所 示 。 
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通过 CetData 和 Matlab C 数学 库 访问 mwArray 的 数据 : 
0.95,0.23,0.61,0.49,0.89,0.76,0.46,0.019,0.82， 
B= 
[ 
0.95+0.441 0.49+0.92i 0.46+0.41i 
0.23+0.62i 0.89+0.74i1 0.02+0.94i 
0.61+0.79i 0.76+0.18i 0.82+0.92i 
] 
B 的 第 5 个 元 素 为 :0.89+0.74i 
通过 ExtractData 返回 的 数据 遍历 B 的 各 个 元 素 : 
0.95+0.441 0.49+0.921 0.46+0.41i 
0.23+0.62i 0.89+0.74i 0.019+0.94i 
0.61+0.79i 0.76+0.18i 0.82+0.92i 
No Painl No Gain! 


7. Matlab C 十 十 数学 库 对 Matlab 阵列 操作 常用 的 小 技巧 

使 用 Matlab C 十 十 数学 库 的 时 候 要 尽量 避免 Matlab 阵列 和 普通 C/C 十 十 语言 数据 结构 
之 间 的 相互 转换 ,以 提高 效率 。 但 是 ,有 时 候 这 些 转换 又 是 不 可 避免 的 。 在 使 用 Matlab C 十 十 
数学 库 的 过 程 中 ,容易 出 问题 的 地 方 就 是 Matlab C 十 十 数学 库 和 普通 C/C 十 十 语言 的 接口 部 
分 ,这 也 是 本 章 的 重点 。 下 面 再 给 出 几 个 Matlab C 十 十 数学 库 mwArray 类 型 和 普通 C/C 十 十 
语言 的 转换 小 技巧 。 

g@ 其 他 类 型 的 数据 向 mwArray 阵列 转换 ,主要 通过 mwArray 阵列 的 构造 函数 来 完成 。 

四 确定 mwArray 阵列 的 大 小 ,通过 size 函数 完成 。 

图 BOOL 型 数据 转换 ,通过 tobool 函数 完成 。 

为 了 更 好 地 说 明 上 述 三 个 小 技巧 的 实现 方法 ,下 面 给 出 一 个 实例 。 


[TYWDataChange. CPP 文 任 演 痊 辣 汪 二 汪 征 首 关 关 生生 着 关 和 和 人 
#include "stdafx.h” 
井 include "matlab.hpp” 
井 include "mex.hr 
井 include "matrix.h” 
int main(int argc，char * argv[]) 
{ 
// 数 组 构建 
static double data[]= {1,3,5,7,9,11); 
double * pdata= NULL; 
mwArray A,B,C,D,E,F; 
mArray * mmD= NUUL; 
A=54 
B= "Hello world'"， 
C= mwArray(2,3vdata)， 
mxD = mxCreateDoubleMatrix(2,3 ,rnxREAL); 
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pdata= mxGetPr(mxD) 

for(int i=O5i<6:i++) 
pdata[ 门 = 让 

}》 

D=rmD 

E=ramp(1,10); 

F=EC8)， 

// 数 组 的 大 小 获取 

mwArray mny 

int mlvnl; 

Size(mwVarargout(mn),C); 。 // 方 式 1 


ml1=sizeC&n1,C); // 方 式 2, 只 适用 于 二 维 的 情况 
int dimsi 

int ndims[2]， 

dims= C.Size(O)， 

C.Size(ndims)， // 方 式 3 


//mwArray 布尔 型 变量 转换 为 C/C+ + 布尔 型 变量 
mwArray isCReal = sreal(C)， 

//C 变量 数据 指针 的 获取 

mxArray * PCMxData = C. CetData() 

double * pCData = mxCetPr(PCMoData) } 
cout< 一 "构造 1X 1 的 数值 阵列 :\m' 天 一 A<< 一 endh 
cout<< 一 "构造 字符 阵列 :\n' 一 一 B 一 一 endl 
cout<< 一 "构造 2X3 的 数值 阵列 :\m 一 一 C 一 一 endl 


cout<< 一 "通过 mxArray 构造 2X 3 的 数值 阵列 :\n 一 <D<< 一 endh 
cout 一 一 "通过 mwSubArray 构造 数值 阵列 :\m' 一 一 F 一 一 endh 


cout 一 一 "数组 C 的 维 数 为 一 一 dims 一 一 endl 


cout< 一 "方法 Ti\m < 天 < 天" 行 , 一 一 m<<"\m 一 一 " 列 ， 天 <n<<"\n < 一 endh 
天 <m1<<"\n 一 一 " 列 ， 一 一 n1 一 一 "\n 一 一 endh 


Cout<< "方法 2:\n 一 一 ” 
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cout 一 一 "方法 3tm 一 一 " 行 :" 一 一 ndims[0] 一 一"\n" 一 一列， 一 一 ndims[1<<"\m 一 一 endh 


cout< 一 "C 数组 的 元 素 个 数 为 "一 天 C.EhCount() 天 一" \n 一 一 endl 


放 tobool(isCReal)) 
{ 
cout< 一 "C 数组 的 数组 类 型 为 实数 ! 一 一 endl 


else 


cout<<<"C 数组 的 数组 类 型 为 复数 人 一 <endl; 


cout<< 一 "阵列 C 的 内 容 如 下 :\nm 一 一 endh 
for(i=O:i 王 C.EHCountCO)3i++) 
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cout 一 一 PCData[ 门 < 一 
}》 


cout<< 一 endl 
retum 0 
)} 
程序 执行 结果 如 下 所 示 。 
构造 1X 1 的 数值 阵列 : 
[ 
5 
昌 
构 进 字符 阵列 : 
Hello World! ， 
构 井 2X3 的 数值 阵列 ; 
站 
1 5 9， 
3 7 11 
] 
通过 mArray 构造 2X3 的 数值 阵列 : 
[ 
0 2 
1 3 
] 


通过 rmmwSubArray 构 井 数值 阵列 : 


] 

数组 C 的 维 数 为 :2 
方法 1 

行 ，[ 


方法 2: 

行 :2 

列 :3 

方法 3: 

行 :2 

列 :3 

C 数 组 的 元 素 个 数 为 :6 
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C 数 组 的 数组 类 型 为 实数 ! 
隆 列 C 的 内 容 如 下 : 
有 


8.3.3 调用 系统 函数 


单 输 入 /输出 的 函数 调用 是 最 简单 的 系统 函数 调用 方法 ,此 时 调用 Matlab C 十 十 数学 库 
的 函数 与 普通 C/C 十 十 函数 的 调用 方法 相同 。 如 调用 正弦 函数 > 一 sin(x)。 

当 输 出 参数 大 于 一 个 时 ,需要 将 第 二 个 输出 参数 的 引用 作为 输入 参数 传递 给 调用 函数 。 
例如 ,对 于 这 种 形式 的 Matlab 函数 调用 :[i,j,yl]=find(y 之 0. 5); 对 应 的 Matlab C 十 十 数学 
库 的 调用 方式 为 :;i=find(&j,&yl,y 二 0.5)， 

当 输 入 和 输出 参数 的 个 数 大 于 32 时 ,需要 构造 一 个 mwVarargin 和 mwVarargout 对 象 。 
每 个 mwVarargin 对 象 在 构造 的 时 候 可 以 传递 32 参数 ,由 于 mwVarargin 在 构造 的 时 候 可 以 
包含 mwVarargin 对 象 ,因而 理论 上 采用 mwVarargin 参数 可 以 传递 无 穷 多 个 输入 参数 。 例 
如 对 于 vertcat, 如 果 输 入 的 参数 个 数 为 90 个 ,需要 采用 下 面 的 调用 形式 ， 


out = vertcat( 

mwVvarargin( 

mwVarargin( 

in1,in2…in32 
)， 
in33 ,in34…in63 
)， 

) 

当 传递 输出 参数 个 数 大 于 32 时 ,需要 构造 mwVarargout 对 象 ,mwVarargout 的 构造 方 
式 与 mwVarargin 类 似 。 例 如 利用 size 函数 求 数值 阵列 X 的 各 维 大 小 , 当 输出 参数 的 个 数 大 
于 32 时 ,可 以 采用 下 面 的 调用 方式 : 

size( 

mwVarargout( 
mwVarargout( 
outlvout2,out3，… out32 
)， 
out33 ,out34，…vout60 


)， 
下 面 的 实例 演示 了 如 何 处 理 不 定 个 数 输入 参数 及 多 输出 参数 的 情况 。 


Callfunction CPP 文 伯 和 演 关 音 玫 全 全 全 手 生生 生生 生生 和 人 
井 include "stdafx.h 
井 include "matlab.hpp” 
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井 include "matrix.h” 
int main(int argc，char * argv[]) 


{ 





// 输 入 参数 个 数 不 定 的 情况 

// 计 算 下 三 角 阵 

mwArray x= vertcat(horzcat(1,2,3,4) ,horzcat(5,6,7,8) ,horzcat(9,10,11,12)); 
mwArray trilxvtrilx1; 

trilx= tril(x)4 

trilxl = tril(x, 一 TD 

// 多 个 输出 参数 的 情况 

// 查 找 数值 阵列 中 大 于 0.5 的 元 素 
mwArray y= rand(4,4) 

mwArray y1i 

mwArray ij 

mxArray * piy xpj, x pyy * py1i 

int kt 

find(aj,&yl,y>0.8)， 
.GetData()， 








pij=j.CetData(); 
py= y. GetData()， 
py1=y1.GetData()， 





cout<<"x= :\n" 一 一 x<< 一 endl 
cout< 一 "tril(x) = :Nm 一 一 trikx 一 一 endh 
cout<<"turilx, 一 D = :Nm 一 一 trikl 一 一 endh 
cout<< 一 "随机 数值 阵列 y= :\n 天 一 y<< 一 endh 
if(mxlsLogical(py1) ) 
{ 
cout 一 一 "i= find(&j,&yl1,y>0.8)*Nn 输出 yl1 为 逻辑 型 变量 "一 一 endl 
} 
cout<< 一 "随机 数值 阵列 大 于 0.9 的 元 素 为 ,一 一 endl 
cout ,precision(4) 
for(k= 0 冰 一 mxGetNumberOfElementsC(pD sk+ 二 ) 
{ 
cout<< 一 "Nt< 
一 一 *((double * )mxCetData(pi + 内 
<< 
二 一 *((double * )mxGetDatapj) +k 
<<">， 
一 一 ，((double * )mxCetData(py) 十 k) 
一 <<endh 


return 0 
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程序 执行 结果 如 下 所 示 。 





] 
tril(x) = : 
[ 


] 
trilx, 一 TD)=: 


[ 


] 


随机 数值 阵列 Y= : 


[ 
0.95013 
0.23114 
0.60684 
0.48598 
| 





0.89130 
0.76210 
0.45647 
0.01850 


ind(&j,&y1,y>0.8)5 


输出 Y1 为 运 辑 型 变量 
随机 数值 阵列 大 于 0.9 的 元 素 为 : 
< 一 1,1> :0.9501 
<1,2>:0.2311 
< 一 1,3>:0.6068 
王 1,4>:0.486 


0.82141 
0.44470 
0.61543 
0.79194 


0 
0 


0.92181 
0.73821， 
0.17627 ， 
0.40571 


附录 一 ”动态 链接 库 基 础 知识 


通过 本 书 各 章 的 学 习 , 读 者 会 发 现在 C/C 十 十 和 Matlab 混合 程序 设计 的 各 种 方法 中 都 有 
“动态 链接 库 ” 身 影 的 出 现 , 比 如 通过 Matlab 编译 器 编译 动态 链接 库 供 VC 十 十 调用 .MEX 文 
件 实际 上 也 是 动态 链接 库 .COM 组 件 也 以 动态 链接 库 的 形式 存在 ,等 等 。 因 而 ,本 书 增加 了 
动态 链接 库 基础 知识 作为 附录 ,使 读者 能 够 更 好 地 理解 C/C 十 十 和 Matlab 混合 程序 设计 的 
内 容 。 


A.1 为 什么 使 用 动态 链接 库 ? 


代码 共享 一 直 是 软件 开发 者 追逐 的 梦想 ,最 初级 的 代码 共享 就 是 将 编写 的 程序 源 代码 ( 比 
如 本 数 或 者 类 ) 提 供给 其 他 程序 员 使 用 。 源 代码 共享 有 很 多 问题 ,比如 软件 代码 的 知识 产权 难 
以 得 到 有 效 的 保护 。 另 外 ,由 于 程序 员 都 会 有 自己 喜好 的 风格 ,有 时 发 现 对 方 提供 的 源 代码 不 
完全 符合 自己 的 编程 习惯 ,因而 对 其 进行 更 改 , 这 样 源 代 码 的 标准 性 和 统一 性 就 很 难保 证 ,最 
后 很 有 可 能 出 现 版 本 混乱 。 解 决 这 个 问题 的 办 法 是 只 提供 编译 后 的 二 进 制 库 文件 和 程序 的 接 
口 ,最 初 使 用 静态 链接 库 的 方式 提供 ,即使 用 者 在 所 开发 的 程序 中 通过 程序 接口 调用 库 函 数 ， 
这 些 库 函 数 只 有 在 链接 时 才 会 真正 连接 到 应 用 程序 中 。 静 态 链接 库 解决 源 代码 共享 的 一 些 问 
题 ,但 并 不 完美 。 假 设 两 个 程序 同时 运行 ,并 且 都 使 用 了 相同 的 静态 链接 库 ,那么 实际 上 静态 
链接 库 就 要 被 加 载 到 内 存 中 两 次 ,从 而 浪费 内 存 空间 ;当然 由 于 两 个 程序 都 链接 了 相同 的 静态 
链接 库 ,肯定 也 会 浪费 硬盘 空间 (很 长 一 段 时间 以 来 ,硬盘 空间 的 价格 并 不 是 像 现 在 一 样 这 么 
便宜 )。 这 时 候 , 就 出 现 了 动态 链接 的 概念 。 动 态 链接 库 与 静态 链接 库 类 似 , 都 是 以 二 进 制 文 
件 的 方式 存在 (在 Windows 的 操作 系统 中 是 以 dll 为 后 缀 的 文件 ), 所 不 同 的 是 编译 器 在 编译 
调用 了 动态 链接 库 的 程序 时 并 不 将 库 文件 中 的 函数 执行 体 链接 到 可 执行 文件 中 ,而 是 只 在 可 
执行 文件 中 保留 一 个 函数 调用 的 标记 。 当 程序 运行 时 , 才 由 操作 系统 将 动态 链接 库 文件 一 并 
加 载 人 内 存 , 并 映射 到 程序 的 地 址 空间 中 ,这 样 就 保证 了 程序 能 够 正常 调用 到 库 文件 中 的 函 
数 。 同 时 , 当 有 多 个 调用 动态 链接 库 的 程序 运行 时 ,也 只 有 一 份 动态 链接 库 的 备份 在 内 存 中 ， 
即 动态 链接 库 在 运行 期 是 共享 的 。 

使 用 动态 链接 库 可 以 为 程序 开发 带 来 如 下 优势 ; 

@ 动态 链接 库 和 用 户 程序 可 以 分 别 开 发 ,动态 链接 库 和 用 户 程序 可 以 由 不 同 的 人 在 不 同 
的 地 点 完成 ,也 可 以 使 用 不 同 的 开发 语言 完成 ,只 要 符合 标准 ,最 终 只 要 把 动态 链接 库 和 用 户 
程序 放 在 一 起 使 用 即 可 。 

@ 动态 链接 库 在 编译 链接 时 并 不 直接 链接 到 应 用 程序 中 ,这 样 就 使 目标 程序 比 使 用 静态 
链接 库 时 小 ,同时 运行 期 又 是 共享 动态 链 库 , 所 以 节省 了 磁盘 存储 空间 和 运行 内 存 空间 。 

@ 动态 链接 库 动态 加 载 的 特点 增加 了 程序 的 灵活 性 ,可 以 实现 诸如 插件 机 制 等 功能 。 
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A.2 C/C 十 十 语言 实现 动态 链接 库 


动态 链接 库 的 编写 方法 与 C/C 十 十 应 用 程序 类 似 ,这 里 首先 介绍 两 组 关键 字 : 

1，_declspec( dllimport) 

这 组 关键 字 表示 从 dll 中 导入 函数 或 者 数据 ,一 般 用 在 dll 对 应 的 头 文件 中 。 

2. _declspec( dllexport) 

这 组 关键 字 表 示 从 dll 中 导出 函数 或 者 数据 ,一 般 用 在 dll 对 应 的 工程 文件 中 。 

下 面 用 一 个 简单 的 实例 说 明 Windows 下 动态 链接 库 的 编写 方法 ,首先 打开 Visual C 十 十 
6.0, 然 后 建立 一 个 Win32 Dynamic-Link Library 空 工 程 ,如 图 9 -2 所 示 。 工 程 建立 完毕 以 
后 ,新 建 两 个 工程 文件 DLL_ADD. h 和 DLL_ADD. cpp, 分 别 添加 到 工程 中 。 其 中 DLL_ 
ADD.h 和 DLL_ADD. cpp 的 源 代 码 如 下 所 示 。 








于 


Flles Projects | Workspaces | other Documents | 


Proiea name: 
下 
evStudio Add-in Wizard RE 
萌 Extended Stored Proc Wizard D3MatlabVcodevdIn 到 
1ISAPI Extension Wizard 

风 Makefile 

矫 MFC Activex ControlWizard 

[ 贺 MFC Appwizard Id 人 Create new workspace 





图 wFc Appwizard (exel add to current workspace 


New Database Wizard 厂 Dependenicy of 


国 win32 Applicaton NT 可 
口 win3z console Application 

CTIEEBTTTTTITTIITTI 

Win32 Static Library 





图 9-1 建立 动态 链接 库 工程 


/DLL_ADD.h 
7 / / /// IIIILLILIII0ALAAAA0LLLALLLALA 


#ifdef MYLIBAPLC 





346 精通 Matlab 与 C/C 十 十 混合 程序 设计 (第 2 版 ) 

















井 else 
井 define MYLIBAPLC extermn“C”__declspec(dllimport) 
井 endif 


井 ifdef MYLIBAPLC_PLUS_PLUS 

提 else 

间 define MYLIBAPLC_PLUS_PLUS __declspec(dllimport) 
井 endif 


MYLIBAPL C_PLUS_PLUS int Add(int a'int b; 
MYLIBAPLC int Sub (int avint b， 


00000A00NAI00000A00000LA00A00N00000L0LL0N00A0N0L00LA00L000LLLLL0ALO000LL0LN00LL 
AAAAAAAA 

WDH_ADD. spp 
AIAAAILA0IA0AALAAAAAAAALALLLAAALAALLLLLLLLLLLAALLLLLLLLLALLLLLNLLLLLLLLLLLLLLALLAL 
HUAUAUAAAAAAAAAAA 

间 ifdef MYLIBAPLC 

间 else 

间 define MYLIBAPLC extem "C' deckspec(dllexporD) 

间 endif 


#ifdef MYLIBAPI_LC_PLUS_PLUS 

林 else 

间 define MYLIBAPILC_PLUS_PLUS declspec(dlexport) 
并 endif 


#include "DLL_ADD.h 


MYLIBAPLC_PLUS_PLUS int Add(int aint b) 
{ 
return (a+b)， 


MYLIBAPLC int Sub(Cint avint b) 
{ 
return (a 一 b+ 

}》 

编译 上 述 工程 即 可 得 到 动态 链接 库 DLL_ADD. dll( 在 Debug 或 Release 目录 下 ), 此 动态 链 
接 库 实现 了 Add 和 Sub 这 两 个 函数 ,并 且 将 其 导出 。 采 用 Visual C 十 十 6. 0 提供 的 Depends 工 
具 ( 选 择 “ 开 始 ”|“ 程 序 - | Microsoft Visual Studio 6. 0 | Microsoft Visual Studio 6. 0 Tools | De- 
pends 启动 ) ,可 以 查看 新 生成 的 DLL_ADD. dll 动态 链接 库 。 启 动 Depends 以 后 ,通过 菜单 打开 











文件 各 加 :Fa 和 


文件 类 型 位); [inaries (exe dl sys trv ocx cpl sc 可 取消 









图 9-2 Depends 工具 打开 DLL_ADD. dll 文件 


Dependenc7y Walker [DLL_ApD. dll1] 
BC Pile Edit Yiew indow lelp 


茹 天 加 三 上 四 岂 


3 癌 IERNEL32 DLL 
丫 mL DLL 


(Oox0001) 0 (Dx0000) 。 ?AdageYAHHHBZ 。。 0x00001005 
(@x0002) 1 (OOx0001) Sub 0x0000100A 


or Help，press 了 1 





图 9-3 DLL_ADD.dll 文 件 导出 函数 信息 
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通过 Depends 工具 我 们 可 以 得 知 ,DLL_ADD. dll 文件 有 两 个 导出 函数 ,函数 名 分 别 为 : 

e Add@G@YAHHHGZ 

e@ Sub。 

这 时 候 , 读 者 可 能 会 非常 疑惑 ,明明 声明 的 是 导出 Add 函数 ,而 实际 导出 的 却 是 一 个 非常 
古怪 的 函数 名 “*? Add@@YAHHHG@Z”? 要 回答 这 个 问题 ,就 需要 开明 白 C 语言 和 C 十 十 语 
言 编写 的 动态 链接 库 的 不 同 。 


A.3 C/C 十 十 语言 动态 链接 库 的 不 同 


C++ 十 语言 有 一 个 很 重要 的 特性 即 函 数 重 载 ,相同 名 称 参 数 不 同 的 函数 可 以 共存 。 如 果 
按照 C 语言 的 标准 ,这 时 候 就 会 出 现 编译 错误 。 在 C 十 十 语言 中 为 了 避免 这 种 编译 错误 的 产 
生 , 编 译 器 在 编译 时 将 函数 的 参数 类 型 信息 以 及 返回 值 类 型 信息 加 入 到 函数 名 中 ,这 样 代码 中 
即使 存在 名 字 相同 的 重 载 函 数 ,在 经 过 编译 后 也 能 区 分 开 ; 当然 ,调用 时 函数 名 也 要 经 过 相同 
的 处 理 ,以 保证 能 找到 对 应 的 函数 。 读 者 可 能 会 问 , 在 DLL_ADD. dll 文件 中 ,为 什么 Sub 函 
数 的 名 称 还 是 保持 原样 呢 ? 细心 的 读者 也 许 已 经 发 现 了 答案 , 即 在 DLL_-ADD. cpp 文件 中 ， 
Sub 函数 定义 时 的 用 MYLIBAPI_C 宏 修饰 ,而 Add 函数 则 用 MYLIBAPI_C-PLUS_PLUS 
宏 修 饰 。 下 面 可 以 看 一 下 这 两 个 宏 定义 的 不 同 之 处 : 

# 井 define MYLIBAPIL_C_PLUS_PLUS __declspec(dllexport) 

音 define MYLIBAPILC extern "C”_ declspec(dllexport) 


可 以 看 出 ,与 MYLIBAPLC_PLUS_PLUS 宏 相 比 ,MYLIBAPIL_C 宏 定义 多 了 extern 
C" 关 键 字 修饰 。extern "C" 关键 字 只 用 在 C 十 十 程序 中 , 它 用 以 通知 编辑 器 其 所 修饰 的 变量 
和 函数 按照 C 语言 方式 编译 和 链接 。 到 这 里 读者 应 当 明 白 了 为 什么 DLL_ADD. dll 文件 导出 
的 Sub 函数 仍然 保持 函数 名 Sub, 正 是 extern "C" 关 键 字 在 起 作用 。 

正 是 因为 C/C 十 十 动态 链接 库 的 不 同 , Matlab 编译 器 编译 动态 链接 库 的 时 候 有 C 和 
C 十 十 两 种 输出 选项 ,在 使 用 的 时 候 也 需要 非常 注意 由 于 这 种 不 同 引起 的 问题 。 


A.4 动态 链接 库 的 调用 方式 
应 用 程序 调用 动态 链接 库 时 ,有 隐 式 和 显示 两 种 链接 方式 。 


A.4.1 隐 式 链接 


隐 式 链接 是 最 常用 的 一 种 链接 方式 ,使 用 起 来 比较 简单 。 隐 式 链 接 需 要 用 户 提供 动态 链 
接 库 文件 和 动态 链接 库 的 导入 库 文件 ( *.lib 文件 ) 。 编 译 器 通过 导入 库 提 供 的 信息 ,通知 链接 
器 所 需 的 函数 代码 在 DLL 中 。 而 链接 器 只 需 向 可 执行 文件 中 添加 信息 ,通知 系统 在 进程 启 
动 时 应 在 何 处 查找 DLL 代码 即 可 。 下 面 通过 实例 进一步 说 明 隐 式 链接 的 实现 方法 。 

@ 首先 建立 一 个 Visual C 十 十 6.0 Win32 Console Application 空 工程 dllL_call_hide。 

加 将 DLL_ADD. dll 和 DLL_ADD. Tib( 这 两 个 文件 在 DLL_ADD 工程 Debug 目录 下 ) 复 
制 到 dllL_call_hide 工程 目录 下 。 
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回 然后 通过 选择 Projeet | Settings 菜单 项 打开 的 对 话 框 中 的 Link | Input 选项 ,将 DLL 
-ADD.lib 设置 为 链接 库 ( 如 图 9-4 所 示 )。 

图 将 DLL_ADD.h 文件 (DLL_ADD 工程 目录 下 ) 复 制 到 dll_call_hide 工程 目录 下 ,并 在 
工程 主 程序 中 增加 对 DLL_ADD. h 头 文件 的 引用 。 

回 添加 对 DLL_ADD. dll 调用 的 程序 代码 ,代码 如 下 所 述 。 


Project Settings 


: [win32 Debug “了 | General | Debug | cfct+ | Unk | Resources | Bl 


TI 


Categorx jinput = 下 esef 


Objectyibrary modutes: 
|oleaut32ib uuidib odbc32.lib odbccp32.ib DT 





lgnore libraries: 厂 lgnore all defauk libraries 





Force symbol references: 





Additional library path: 





Project Options: 


kernel32.lib user32.lib gdi32.lib winspool.lib 
comdlg32.lib advapi32.lib shell32Jib ole32.lib 
oleaut32.lib uuid.lib odbc32.lib odbccp32.lib 














图 9-4 设置 DLL_ADD.lib 为 链接 库 


WA 
dlLcall_hide. cpp 
/1// / HA 
井 include "stdafx.h” 
莫 include "stdio.h” 
划 include "DLL_ ADD.h” 


int main(int argcvchar* argv[]) 
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c=Add(a,b);// 调 用 动态 链接 库 DLL_ADD.dll 中 的 add 函数 
printf("a= %dvb= %d,(a+b)= %dNn' ,abyc); 
c= Sub(avb);// 调 用 动态 链接 库 DLL_ADD.dil 中 的 Sub 函 教 
printf("a= %d,b= %d,(a-bD= %dNn' avb,c; 
printf("Press Any key To Quit! \m")， 
Betchar(O)， 
retum 0 

} 


A.4.2 显 式 链 接 


大 部 分 应 用 程序 使 用 隐 式 链接 ,因为 这 是 最 易于 使 用 的 链接 方法 。 但 隐 式 链接 的 灵活 性 
较 差 ,因而 在 有 些 情况 下 ,必须 使 用 显示 链接 。 下 面 列 举 了 程序 设计 中 需要 使 用 显示 链接 的 几 
种 情况 。 

@ 在 被 执行 之 前 ,应 用 程序 并 不 知道 需要 加 载 的 DLL 文件 名 ,比如 DLL 的 文件 名 是 通 
过 配置 文件 导入 的 。 

@ 应 用 程序 需要 动态 加 载 动态 链接 库 , 比如 应 用 程序 执行 过 程 中 发 现 自己 所 需 的 DLL 
文件 并 不 存在 ,此 时 应 当 提示 用 户 指定 新 的 DLL 文件 目录 并 动态 加 载 自己 所 需 的 动态 链 
接 库 。 

图 应 用 程序 需要 减少 启动 时 间 , 因 而 启动 的 时 候 没 有 必要 加 载 所 有 的 DLL, 因 为 有 的 
DLL 文件 只 在 程序 运行 过 程 中 使 用 。 

在 上 述 三 种 情况 中 ,只 有 使 用 显示 链接 才能 满足 要 求 。 

另外 , 显 式 链接 不 需 将 应 用 程序 与 导 人 库 链 接 。 如 果 DLL 中 的 更 改 导 致 导 出 序号 更 改 ， 
使 用 显 式 链接 的 应 用 程序 不 需 重新 链接 (假设 它们 是 用 本 数 名 而 不 是 序号 值 调用 GetProcAd- 
dress) ,而 使 用 隐 式 链接 的 应 用 程序 必须 重新 链接 到 新 的 导 人 库 。 

使 用 动态 链接 库 显 式 链接 的 缺点 是 操作 相对 复杂 。 下 面 通过 实例 进一步 说 明显 示 式 链接 
的 实现 方法 。 

CQ 首先 建立 一 个 Visual C 十 十 6.0 Win32 Console Application 空 工程 dlLcallLapparent。 

加 将 DLL_ADD.dll (在 DLL_ADD 工程 Debug 目录 下 ) 复 制 到 dll_call_ apparent 工程 
目录 下 。 

图 添加 对 DLL_ADD. dll 显 式 调用 的 程序 代码 ,代码 如 下 所 示 。 

0000I000A000000000000000000000000000000A00000LLL000O0L0NL0LLO00OOLOOLLLLLLLLLLL 

dll_call_apparent .cpp 

IIIIII00I00000000I0000III000000AII0A00IAAAAAL0LLLLA0ALLLIOAILILLLLLAIL0LLLLLLLLLLLLLA 

林 include "stdafx.h” 

井 include "stdio.h” 

井 include 一 windows.h> 


// 定 义 函 数 类 型 : 输入 为 两 个 整 型 .输出 为 整 型 
typedef int ( * MYFUN) (int'inb 
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int mainKint argcychar * argv[]) 
{ 
int c; 
int aby 
HINSTANCE hDLL= NUUL;V/DUL 句柄 
MYFUN Add= NULL,Sub= NULL; 


// 加 载 DUHL 文件 
hDHL= toadLibrary(" DLL_ ADD.dl”)， 


// 获 取 DLL 文件 的 Add 函数 

Add= (MYFUN)CetProcAddress(hDL，? Add@@YAHHHGZ )) 
// 获 取 DHL 文件 的 Sub 函数 

Sub= (MYFUN)GetprocAddress(hDLL，sSub" )， 


a=1 

b=2 

人 Add! = NUUL) 

{《 
c=Add(a'b)// 调 用 动态 链接 库 DLL_ADD.dll add 函数 
printf("a= %d,b= %d(a+b= %dNn ,avb,c); 

)》 

放 Sub! =NUU) 

{ 
c= Sub(a,b);// 调 用 动态 链接 库 DLL_ADD-.dll 中 的 Sub 函数 
printf("a= %db= %d,(a 一 b)= %dhn" ,avb,c); 

}》 


// 释 放 

FreeLibrary(hDLL) 

printf(" Press Any Key To Quitl \m)， 
getchar()， 

return 0 


特别 注意 如 下 所 述 的 源 代 码 中 比较 重要 的 Windows API 函数 。 

(1) LoadLibrary 

LoadLibray 函数 的 参数 是 一 个 字符 串 指针 ,调用 时 需要 填 人 需要 加 载 的 动态 链接 库 的 文 
件 名 (包含 文件 的 目录 ) 。 

(2) GetProcAddress 

GetProcAddress 函数 从 指定 的 动态 库 中 查找 指定 名 称 的 函数 ,如 果 查 找 成 功 则 返回 该 函 
数 的 入 口 地 址 ,如 果 失 败 则 返回 NULL。 可 能 读者 已 经 注意 到 ,GetProcAddress 函数 中 指定 
的 函数 名 并 不 是 Add, 而 是 ? Add@@YAHHHG@Z, 这 就 和 前 面 A. 3 中 讲 到 的 C/C 十 十 动态 
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链接 库 的 不 同 联系 起 来 了 。 应 用 GetProcAddress 函数 时 ,输入 的 函数 名 必须 是 编译 后 经 过 重 
命名 的 函数 名 ,而 不 是 源 文件 中 定义 的 函数 名 。 

(3) FreeLibrary 

调用 FreeLibrary 函数 释放 指定 的 动态 链接 库 (由 动态 链接 库 的 句柄 标志 ) ,读者 需要 注 
意 的 是 LoadLibrary 和 FreeLibrary 一 定 要 配对 使 用 ,否则 会 造成 动态 链接 库 没有 及 时 释放 而 
导致 内 存 泄露 。 

除了 Windows API 函数 以 外 ,在 dil_call_apparent. cpp 源 代 码 中 ,还 定义 了 函数 类 型 
MYFUN 和 句柄 hDLL。 其 中 定义 MYFUN 函数 类 型 是 为 引用 DLL_ADD. dll 的 两 个 函数 
Add 和 Sub 更 加 方便 ;定义 hDIl 句柄 用 以 存储 DLL_ADD. dll 加 载 时 返回 的 实例 句柄 ( 句 
柄 一 Handle, 可 以 联想 为 球拍 的 手柄 , 抓 住 了 手柄 就 能 掌握 球拍 ,当然 ,知道 了 DLL 文件 的 句 
柄 ,理论 上 就 可 以 对 其 进行 任何 合理 的 操作 ,实际 上 句柄 是 一 个 内 存 地 址 ,在 对 应 的 内 存 中 存 
放 的 是 DLL 文件 的 信息 ) 。 


mwmoawaewown 
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